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of this publication is limited to persons with program 
maintenance or modification responsibilities. 



PREFACE 



This Program Logic Manual is a guide to the 
internal structure of the Queued Telecom- 
munications Access Method (QTAMK It is 
designed to be used with :he program list- 
ing; program structure at the machine 
instruction level is not discussed. 

Effective use of this manual requires a 
knowledge of the concepts presented in the 
following IBM System/3 60 publications: 

IBM System/360 Principles of Operation , 
Form A22-6821 

IBM System/360 Operating System: Queued 
Telecommunications Access Method, Mes- 
sage Control Program , Forir C30-2005-2 

IBM System/3 60 Operating System: Queued 
Telecommunications Access Method,, Mes- 
sage Processing Program Services ,, Form 
C30-2003-3 

In addition, the following publications 
may be used when information afccut other 
elements of the control program is 
required: 

IBM System/3 60 Operating System: 
Assembler 32K , Form Y26-3598 

IBM System/3 60 Operating System: 
Assembler 64K , Form Y26-3700 

IBM System/360 Operating System: Basic 
Direct Access Method, Program Logic 
Manual , Form Y28-6617 

IBM System/3 60 Operating System: I/O 
Supervisor, Program Logic Manual ,, Form 
Y28-6616 

IBM System/3 60 Operating System: I/O 
Support (OPEN/CLOSE/EOV) ,, Program Logic 
Manual , Form Y28-6609 

IBM System/3 60 Operating System: Job 
Management, Program Logic Manual , Form 
Y28-b613 



IBM System/ 360 Operating System: Link- 
age Editor^ Program Logic Manual s Form 
Y28-6610 



IBM System/ 360 Operating System: 
Seguential Access Method, Program Logic 
Manual , Form Y28-6604 



IBM System/ 36 Operating System: Direct 
Access Device Space Management, Program 
Logic Manual , Form Y28-6607 



IBM System/ 360 Operating System: Cata- 
log Management, Prcgram Logic Manual ,, 
Form Y28-6606 



IBM System/ 36 Operating System: Fixed- 
Task Supervisor, Program Logic Manual ,, 
Form Y28-6612 

This publication contains the following: 
discussions on the physical organization 
and logical organization as an introduction 
to QTAM r an outline of the QTAM operation 
as an overall logic flow,, the function of 
BTAM within QTAM, a summary of the internal 
logic at the routine level, flowcharts of 
each routine, and appendixes. The routine 
names that appear as labels on the overall 
logic flowchart can be used to access the 
detailed flowchart for the specific rou- 
tine. The labels on these detailed flow- 
charts relate to the labels on the listings 
for the routine. 

Throughout this publication, option 2 of 
multiprogramming with a fixed number of 
tasks is assumed (MFT) . QTAM also runs 
under option 1 of multiprogramming with a 
variable number of tasks (MVT) . There are 
no major differences in these two options 
of the operating system for the logic of 
QTAM except that partitions are regions and 
priority of partitions must be assigned to 
jobs in MVT. 



RESTRICTED DISTRIBUTION ; This publication is intended for use by 
IBM personnel only and may not be made available to others 
without the approval of local IBM management. 



Third Edition , November 1968 



This edition, Y30-2002-2, corresponds to OS Release 17. It is a major 
revision of, and renders obsolete. Form Y30-2002-1 and associated Tech- 
nical Newsletters. Changes not documented in Technical Newsletters to 
the previous edition are indicated in the following manner: changes to 
the text are indicated by a vertical line to the left of the change; in 
the case of a page which contains all new information,, a bullet (•) is 
placed next to the page number; similarly, changed or added illustra- 
tions are denoted by a bullet to the left of the caption. 

Significant changes or additions to the specifications contained in this 
publication are continually being made. When using this publication in 
connection with the use of IBM equipment, check the latest SRL Newslet- 
ter for revisions or contact the local IBM branch office. 

Requests for copies of IBM publications should be made to your IBM 
representative or to the IBM branch office serving your locality. 

A form is provided at the back of this publication for reader* s com- 
ments. If the form has been removed, comments may be addressed to IBM 
Corporation, Programming Documentation, Dept. 844, P.O. Box 1227 5 W 
Research Triangle Park, North Carolina, 27709. 



© 



£) Copyright International Business Machines Corporation 1966, 1967, 
1968 



CONTENTS 



PHYSICAL ORGANIZATION OF QTAM ...... 9 

System Generation 9 

QTAM Nucleus , 9 

QTAM Macro Definitions ........ 9 

External Routines 9 

Support Modules 9 

Assembling and Linkage Editing a 

Message Control Program ........ 9 

Assembling and Linkage Editing a 

Message Processing Program ....... 10 

Initializing the Message Control 

Program ........ 10 

Initializing a Message Processing 

Program ...... 10 

LOGICAL ORGANIZATION OF QTAM 13 

QTAM Within the Operating System 

Control Program Structure 13 

Message Control Problem Program ... 13 

Message Processing Problem Program . . 15 
QTAM Supervisory Routines . . . . . .15 

QTAM as a Separate Control Program . . . 15 
Queue Management . . . ........ .16 

Control Blocks , 19 

QWAIT and QPOST 22 

QPOST Example ...... 23 

QTAM Nucleus 25 

Qdispatch Routine .......... 25 

OUTLINE OF QTAM OPERATION . . 30 

Initialization ,. . . . 30 

Receiving 33 

PCI Interrupt (receiving the first 

buffer) 35 

PCI Interrupt (receiving all buffers 

except First) . . 35 

Timer Interrupt - Checkpoint Interval 37 

Disk Interrupt (Receiving) ...... 37 

Disk Interrupt- -Checkpoint Write ... 37 

Line End Interrupt (receive an EOB) . 38 
Line End Interrupt (Receive WRU 

Signal on WTTA Line) ,. . . 39 

Line End Interrupt (Receive 

EOT — Receive EOT/EOM on WTTA Lines) . 39 

Sending 40 

Disk Interrupt (sending - header) . ,. 41 
Disk Interrupt (sending - all 

buffers) , 41 

PCI Interrupt (sending) . 42 

Line End Interrupt (sending - EOB) . . 42 
Line End Interrupt (sending - 

response to EOB) 42 

Line End Interrupt (Send EOB/EOT) ,. . 43 

Message Processing ........... 44 

Disk Interrupt (first buffer - 

header) 45 

Disk Interrupt (rewrite) 45 

Disk Interrupt , 45 

CLOSEDOWN , 47 

BTAM OPERATION WITHIN QTAM 53 

BTAM Read/Write Routine (IGG019NZ) ... 53 



Index Value ............. 53 

BTAM Control Information for Channel 
Program Generation ............ 54 

BTAM Channel Programs ......... 56 

Channel Programs For AT ST 83B3 

Selective Calling Station Lines .... 57 

Channel Programs for Western Union Plan 
115 A Outstations ............ 58 

Channel Programs for IBM 1030 Lines . . 58 
Channel Programs for IBM 1050 Lines . . 59 
Channel Programs for IBM 1050 Dial 
(Switched Connection Lines) ...... 60 

Channel Programs for IBM 1060 Lines . . 62 
Channel Programs for TTY Models 33 and 

35 TWX Lines ...... 63 

Channel Programs for IBM 2740 
Communications Lines ........... 63 

IBM 2740 Basic Channel Programs ... 63 

IBM 2740 With Checking 64 

IBM 2740 With Dial 65 

IBM 27 40 With Dial and Checking ... 66 
IBM 2740 with Dial and Transmit 

Control ..... 67 

IBM 27 40 With Dial, Transmit 

Control, and Checking ........ 68 

IBM 2740 With Station Control ..,.,. 69 
ibm 27 40 With Station Control and 

Checking .......... 70 

Channel Programs for IBM 2848 - 2260 

Remote Lines . . , 71 

Channel Programs Employing the Auto 

Poll Feature , . 7 3 

Channel Programs for World Trade 
Telegraph Adapter .......... 74 

MESSAGE CONTROL PROGRAM (LPS) ROUTINES . 76 

Breakoff Routine (Chart BY) 76 

Cancel Message Routine (Chart CD . . .76 

Date Stamp Routine (Chart CH) 77 

Distribution List Routine (Chart DB) . . 77 
End of Address Routine (Chart DC) - ,. ,. 78 
End of Block Routine (Chart CY) .... 78 
End of Block and Line Correction 

Routine (Chart CZ) . . 79 

Error Message Routine (Chart CQ) .... 80 
Expand Routine (Chart CU) ....... 80 

Intercept Routine (Chart CT) 80 

Lookup Routine (Chart CO) ....... 81 

Message Mode Routine (Chart CW) .... 81 

Conversational Mode Routine (Chart CX) . 81 
Initiate Mode Routine (Chart CW) . ... 82 

Priority Mode Routine (Chart CW) .... 8 2 

Message Type Routine (Chart CA) .. . . . 83 

Operator Awareness (Chart EO) ...... 83 

Operator Control Routine (Chart EE) . . 83 

Pause Routine (Chart CO) 88 

Polling Limit Routine (Chart CR) . ... 88 
Reroute Routine (Chart CS) ........ 89 

Route Routine (Chart CN) . 89 

Scan Routine (Chart CF) ........ 89 

Sequence In Routine (Chart CV) .... .90 

Sequence Out Routine (Chart CM) .... 90 



Skip (Character Count) Routine (Chart 

CJ) . . 90 

Skip (Character Set) Routine (Chart CJ) 91 

Source Routine (Chart CI) ....... 91 

Time Stamp Routine (Chart CK) 91 

Translate Routine (Chart CP) 92 

ROUTINES IN THE TRANSIENT AREA 93 

Close Communications Line Group Routine 

(Chart £B) . . 93 

Close Direct Access Message Queue 

Routine (Chart EC) . . ... 93 

Close Process Queue (Input and Output) 
Routine (Chart EA) ••••...••••93 

Line Group Open Executor - Load 1 

Routine (Chart Fl) ........... 94 

Line Group Open Executor - Load 2 

Routine (Chart F2) 9a 

Line Group Open Executor - Load 3 

Routine (Chart F3) 95 

Open Line Group Executor Load 4 Routine 95 

Open Direct Access Message Queue 

Routine (Chart F4) ........... 95 

Open Direct Access-Load 2 (Chart F5) . . 96 
Open Checkpoint Records Data Set 

Routine (Charts F6 and F7) 96 

Open Message Processing Program Routine 
(Input and Output) (Chart C4) 97 

MESSAGE PROCESSING PROGRAM ROUTINES . . 98 
Get Message Routine (Chart C6) ..... 98 

Get Record Routine (Chart C7) 98 

Get Segment Routine (Chart C5) . .... 99 

Put Message Routine (Chart DA) 99 

Put Record Routine (Chart C9) .... .100 

Put segment Routine (Chart C8) 100 

Change Polling List Routine (Chart CD) .101 
Change Terminal Table Routine (Chart 

CB) , , 101 

Checkpoint Request Routine (Chart C3) .102 
Close Message Control Routine (Chart 

ED) .102 

Copy Terminal Table Routine (Chart CG) .102 
Copy Polling List Routine (Chart CO . .103 
Copy Queue Control Block Routine 

(Chart CE) 103 

Locate DCB Routine (Chart BW) 10 3 

Release Intercepted Message Routine 

(Chart BZ) 103 

Retrieve - DASD Routine (Chart CI) . . .104 
Retrieve by Sequence Number Routine 

(Chart C2) . .104 

Start Line - Stop Line Routine (Chart 

BX) .105 

QTAM CONTROL MODULE SUBROUTINES . . . .106 
Entry Interface Subroutine ....... .106 

QTAM Post (QPOST) Subroutine 106 

QTAM Wait (QWAIT) Subroutine 106 

Defer Entry Subroutine .107 

Priority Search Subroutine ...... .107 

Queue Insert Subroutine 107 

QDispatch Subroutine . . ....... .107 

Exit Select Subroutine „ .10 8 

Exit Interface Subroutine . . . . . . .108 

QTAM IMPLEMENTATION MODULE ROUTINES . .110 
Receive Scheduler Routine (Chart DH) . .110 



BRB-Ring Routine (Chart DI) ..... .110 

Active Buffer Request Routine (Chart 

DL) .,...., .111 

Available Buffer Routine (Chart DM) . .111 

Buffer BRB Routine (Chart DN) . • . . .111 

Disk I/O Routine (Chart D2) ..... .111 

Disk End Appendage (Charts DO and Dl) .112 

LPS Control Routine (Chart DO) . . . . .112 

Activate Routine (Chart DP) ..... .112 

Line SIO Appendage Routine (Chart DQ) .112 

Line PCI Appendage Routine (Chart DR) .113 
Line End Appendage Routine (Charts DS 

and DT) ...,...., • . .113 

WTTA Line Appendage Routine (Charts 

Rl r R2, R3, and R4) ...... . . . .114 

WTTA Line PCI Routine ....... .114 

WTTA Line End Routine ....... .114 

Buffer Cleanup and Recall Routine 

(Charts DD and DE) .115 

DASD Destination Routine (Chart DX) . .116 

Get Scheduler Routine (Chart DV) . . . .116 

Return Buffer Routine (Chart DW) . . . .118 
End of Poll Time Delay Routine (Chart 

DJ) . , .118 

Interim LPS Routine (Chart DU) 118 

Send Scheduler Routine (Chart DK) . . .118 

Free BRB Routine (Chart DF) 118 

End Insert Routine (Chart DG) 119 

Cross Partition Move Routine (Chart DY) 119 

COMMUNICATIONS SERVICEABILITY 

FACILITIES . . . . , .120 

Checkpoint/Restart .... .120 

Checkpoint Routine (Charts FA and FB) 120 

Error Recovery Procedure ....... .122 

Time-Out and Data Check for Auto Poll 

Routine (Chart AF) 123 

Data Check Routine (Chart AB) ... .124 
Time-Out Routine (Chart AC) . . . • .124 
Intervention Required Routine 

(Charts AD and AE) .125 

Lost Data Routine (Chart AG) .... .125 
Error Post Routine (Charts AH and AI) 125 
Bus- Out and Overrun Routine (Chart 

AJ) . . , .126 

Link Routine (Charts AK and AL) . . .126 
Status Check Routine (Chart AM) . . .127 
Command Reject, Equipment Check, 
SIOCC1, SNO Error Routine (Chart AN) .127 
Read Skip Return Routine (Chart AO) .127 
Diagnostic Write/Read Routine (Chart 

AP) .128 

Line Error Recording Routine (Chart 

AQ) . . , .128 

Operator Control LER Addition Routine 

(Chart AR) . , . • ,128 

Open and Checkpoint Restart Routine 
(Chart AS) .......... . . • .128 

Not Operational Start I/O Routine 

(Chart AT) . . , .129 

Bus-Out and Overrun for Auto Poll 

Routine (Chart AU) 129 

Overrun Routine (Chart AV) 129 

On- Line Terminal Test ........ .130 

Resident Terminal Test Routine 

(Charts QL and QS) . .130 

Terminal Test Header Analysis Routine 
(Chart QA) 131 



Terminal Test Routines (Charts Q3, 

Q4, Q5 lf Q6, and Q8) ........ .131 

QTAM CHARTS ,. . . . . . . .132 

APPENDIX A: QTAM QUEUES AND SUBTASKS . .267 

Queues , ,. . .267 

Active Buffer Request Queue 267 

Additional CCW Queue ......... .267 

Available Buffer Queue . 267 

Move Data Queue ........ . . .267 

Communications Line Queue ..,.,. . .267 
DASD Destination Queue ....... .267 

Disk Input/Output Queue 267 

Distribution List Queue ...... .268 

Inactive BRB Queue .268 

Interim LPS Queue .268 

Time Queue . .268 

LPS Queue , 268 

DASD Process Queue ......... .268 

Return Buffer Queue 268 

Copy Clear Queue 268 

Change Queue . . . .269 

Stop Queue . . . . , 269 

Stop4 Queue ............ .269 

Stop The Line Queue ........ .269 

Get SVC 1 Queue . . .269 

Checkpoint Queue .269 

Check Request Queue . . - 269 

Line Change Queue ,. 269 

Dial Out-Call Queue . . , 269 

Subtasks . . .269 

Active Buffer Request Subtask . . - .269 
Available Buffer Subtask ........ .269 

DASD Destination Subtask .270 

Disk Input/Output Subtask ..... .270 

Distribution List Subtask . , 270 

Get Scheduling Subtask . .270 

LPS Subtask 270 

Queue Insert Subtask 270 

Queue Insert by Priority Subtask . . .270 

Qdispatch Subtask 270 

Receive Scheduling Subtask ..... .270 

Return Buffer Subtask ,. .270 

Send Scheduling Subtask ....... .270 

Time Subtask . . . . , .270 

Move Data Subtask .271 

Copy Clear Subtask . 271 



Change 1 Subtask . . . . , .271 

Stop 1 subtask ............ .271 

Stop 3 Subtask 271 

Getsvc 2 Subtask .......... .271 

Stop 5 Subtask , .271 

Checkpoint Subtask .......... .271 

Check Request Subtask ....... .271 

Line Change Subtask ... .... .271 

Qdispatch Subtask . 271 

APPENDIX B: SYSTEM CONTROL BLOCKS . . .27 2 

General Control Block Forms ..... .272 

Queue Control Block .272 

Resource Element Control Block . . . .273 

Truncated Subtask Control Block . . .274 

Full Subtask Control Block . ,. . . . .274 

Line Control Block . .274 

Data Control Block .......... 277 

Data Extent Block . . . 280 

Data Event Control Block .... • . .284 

Unit Control Block ......... .284 

Terminal Table - . .286 

Buffer Prefix . . .287 

Special Control Block Forms ..... .289 

Queue Control Block ........ .289 

Buffer Request Block ......... .289 

Insert Block ............ .291 

Resource Element Control Block 

(IECKSTOP) ....... .291 

APPENDIX C: QTAM LINKAGES . . . . „ . .292 

APPENDIX D: LIST OF QTAM MODULES . . . .297 

Alphabetical List of QTAM Modules . . .297 
List of Modules by Macro instruction 

Category . . . , .299 

Support Macro instructions ..... .299 

Message Control Macro Instructions . .299 
Message Processing Macro Instructions 300 

APPENDIX E: QUEUES AFFECTED BY QTAM 
ROUTINES . . . 301 

APPENDIX F: OPERATING SYSTEM CONTROL 

BLOCK LINKAGES . . , - -303 

APPENDIX G: HEADER AND TEXT 

RELATIONSHIPS ON A DASD QUEUE .... .304 

INDEX , • 307 



CHARTS 



Chart AB. Data Check Routine . . .132 
Chart AC. Time Out Routine . . . .133 
Chart AD. Intervention Required 

Routine 134 

Chart AE. Intervention Required 
Routine (Continued) ..... . . .135 

Chart AF. Time Out and Data Check 

for Auto Poll Routine . . . - . . .136 

Chart AG. Lost Data Routine . . . .137 

Chart AH. Error Post Routine . . .138 
Chart AI. Error Post Routine 

(Continued) 139 

Chart AJ. Bus Out and Overrun 

Routine , . .140 

Chart AK. Link Routine ..... .141 

Chart AL. Link Routine (Continued) 142 

Chart AM. Status Check Routine . .143 

Chart AN. Command Reject, 

Equipment Check, SIO CC 1„ SNO 

Error Routine ........... .144 

Chart AO. Read Skip Return Routine 145 
Chart AP. Diagnostic Write/Read 

Routine .. .146 

Chart AQ. Line Error Recording 
Routine ............. .147 

Chart AR. Operator Control LER 
Addition Routine .......... .348 

Chart AS. OPEN and 

Checkpoint/Restart Routine . . . . .149 

Chart AT. Not Operational Start 

I/O Routine . 150 

Chart AU. Bus Out and Overrun for 

Auto Poll Routine . . . .151 

Chart AV. Overrun Routine . . . .152 
Chart BW. Locate DCB Routine . . .153 
Chart BX. Start Line- Stop Line 

Routine . .154 

Chart BX1. QTAK Start Line-Stop 

Line Routine .155 

Chart BY. Breakoff Routine . . . .156 
Chart BZ. Release Intercepted 

Messages Routine .. .157 

Chart CO. Pause Routine ...... .158 

Chart CI. Retrieve - DASD Routine .159 
Chart C2. Retrieve by Sequence 

Number Routine .160 

Chart C3. Checkpoint Request 

Routine 161 

Chart C4. Open Message Process 

Queue 162 

Chart C5. Get Segments Routine . .163 
Chart C6. Get Messages Routine „ .164 
Chart C7. Get Records Routine . . .165 
Chart C8. Put Message Segment 

Routine 166 

Chart C9. Put Record Routine . . .167 
Chart CA. Message Type Routine . .168 
Chart CB. Change Terminal Table 

Routine .169 

Chart CC. Copy Polling List 

Routine .170 



Chart CD. Change Polling List 

Routine ............. .171 

Chart CE. Copy Queue Control 

Block Routine .172 

Chart CF. Scan Routine 17 3 

Chart CG. Copy Terminal Table 

Routine . . .....,.„,.... .174 

Chart CH. Date Stamp Routine . . .175 

Chart CI. Source Routine . ,. . . .176 

Chart CJ. Skip to Character Set - 

Skip on Count Routines ...... .177 

Chart CK. Time Stamp Routine . . .178 

Chart CL. Cancel Message Routine .179 

Chart CM. Sequence Out Routine . .18 

Chart CN. Route Routine ..... .181 

Chart CO. Lookup Routine 18 2 

Chart CP. Translate Routine . . . .18 3 

Chart CQ. Error Message Routine . .18 4 

Chart CR. Polling Limit Routine . .18 5 

Chart CS. Reroute Routine .... .186 

Chart CT. Intercept Routine . . . .187 

Chart CU. Expand Routine .... .188 

Chart CV. Sequence in Routine . . .18 9 
Chart CW. Mode, Initiate, and 

Priority Routines ... .190 

Chart CX. Mode Conversational 

Routine ........ . .... .191 

Chart CY. End of Block Routine . .192 
Chart CZ. End of Block and Line 

Correction Routine 193 

Chart DO. Disk End Appendage 

Routine ....,.,..,. .194 

Chart Dl. Disk End ApDendage 

Routine (Continued) ..195 

Chart D2. Disk I/O Routine . . . .196 

Chart DA. Put Message Routine ,. . .197 
Chart DB. Distribution List 

Routine 198 

Chart DC. End of Address Routine .199 
Chart DD. Buffer Cleanup and 

Recall Routine .200 

Chart DE. Buffer Cleanup and 

Recall Routine (Continued) .... .201 

Chart DF. Free BRB Routine . . . .20 2 

Chart DG. End Insert Routine . . .203 
Chart DH. Receive Scheduler 

Routine . .204 

Chart DI. BRB Ring Routine ... .205 
Chart DI1. BRB Ring Routine 

(Continued) . . . , .206 

Chart DJ. End of Poll Time Delay 

Routine .............. .207 

Chart DK. Send Scheduler Routine .208 
Chart DK1. Send Scheduler Routine 

(Continued) ...... .209 

Chart DL. Active Buffer Request 

Routine 210 

Chart DM. Available Buffer Routine 211 

Chart DN. Buffer BRB Routine . . .212 

Chart DO. LPS Control Routine . . .213 

Chart DP. Activate Routine . . . .214 



Chart DQ. Line SIO Appendage 

Routine . - .215 

Chart DQ1. Line SIO Appendage 

Routine (Continued) - . .216 

Chart DR. Line PCI Appendage 

Routine . 217 

Chart DS. Line End Appendage 

Routine ........-,.--. .218 

Chart DT. Line End Appendage 

Routine (Continued) 219 

Chart DTI. Line End Appendage 

(continued) ..-...- 220 

Chart DU. Interim LPS Routine . . .221 
Chart DV. Get Scheduler Routine . .222 
Chart DW. Return Buffer Routine . .223 
Chart DX. Destination DASD Routine 224 
Chart DY. Cross Partition Move 

Routine ,. .225 

Chart EA. Close Process Queue . . .226 
Chart EA1- Close Process Queue 
(Continued) ........... .227 

Chart EB. Close Communications 

Line Group . . - .228 

Chart EC. Close Direct Access 

Message Queue .229 

Chart ED. Close Routine ..... .230 

Chart EE. Operator Control Routine 231 
Chart EF. Common Subroutines OPTCL 232 
Chart EG. Common Subroutines 

OPTCL (Continued) 233 

Chart EH. Copy Termtbl Entry 

OPTCL Routine 234 

Chart EI. Change Termtbl Entry 

OPTCL Routine 235 

Chart EJ. Intercept and Release 

OPTCL Routine 236 

Chart EK. Start Line OPTCL Routine 237 
Chart EL. Stop Line OPTCL Routine .238 
Chart EM. Stop Line OPTCL Routine 

(Continued) .239 

Chart EN. Intrel OPTCL Routine - .240 
Chart EO. Operator Awareness 

Routine 241 

Chart Fl. OPEN Line Group Load 1 
Executor Routine - .242 



Chart F2. OPEN Line Group Load 2 
Executor Routine .. - . .-..«. -243 
Chart F3. Open Line Group Load 3 

Executor Routine ,.,.-. .24 4 

Chart F4. OPEN Direct Access 

Message Queue Routine ------ .245 

Chart F5. OPEN Direct Access Load 

2 Routine ...... .246 

Chart F6. OPEN Checkpoint Data 

Set Routine .......--.- -247 

Chart F7. OPEN Checkpoint Data 

Set Routine (Continued) - - . ,. ,. .248 

Chart F8. QTAM Open Line Group 

Load 4 -,.,....----,..- . .249 

Chart F9- Close Process Queue 

Load 2 , ,. - .250 

Chart FA. Checkpoint Routine - . .251 
Chart FB. Checkpoint Routine 
(Continued) .-...--•,.».. 252 
Chart NU- QTAM Nucleus (1 of 2) - .253 
Chart NV. QTAM Nucleus (2 of 2) . -254 
Chart QA- Terminal Test HDR 

Analysis Module . . . - -255 

Chart QL. Resident Terminal Test 

Module - ....... .256 

Chart QS. Terminal Subtasks . . . .257 
Chart Q3. 1030 Terminal Test 

Module „ - - - . .258 

Chart Q4- 2740 Terminal Test 

Module -...-....*.... .259 

Chart Q5. 105 Terminal Test 

Module .......... 260 

Chart Q6. 106 Terminal Test 

Module -..--.... 261 

Chart Q8. 2848/2260 Terminal Test 
Module .,,.,..,......-•-- .262 

Chart Rl. WTTA Line PCI Appendage 

Routine -..- 263 

Chart R2- WTTA Line End Appendage 
Routine (Part 1 of 3) ...... .264 

Chart R3- WTTA Line End Appendage 
Routine (Part 2 of 3) ..--.. .265 
Chart R4. WTTA Line End Appendage 
Routine (Part 3 of 3) -266 



Figure 1. Physical Organization 

of QTAM . . , , , . 12 

Figure 2. Flowchart of Message 

Control Program , . , 14 

Figure 3. (Part 1 of 2) 16 

Figure 4 ...... 17 

Figure 5. . . . . , . . 17 

Figure 6. Element Chain . . ,. . .18 
Figure 7. Second Step of Qpost 

Operation 19 

Figure 8. Resource Eleirent 

Control Block ........... 20 

Figure 9. General Form of Full 

and Truncated STCB , . 20 

Figure 10. General Form of QCB 
and Example of QCB on the Ready 

Queue . 22 

Figure 11. QTAM Nucleus 29 

Figure 12. Blocks Initialized by 

Open Direct Access Device .... 31 

Figure 13. Control Block after 

Open Line Groups ......... 32 

Figure 14. Buffer Ready to 

Receive Message from Line ..... 33 

Figure 15. Channel Program 

Prepared for First Buffer ..... 34 

Figure 16. Effect of PCI 

Interrupt ..36 

Figure 17. Path of a Buffer for 
Receiving .............. 38 

Figure 18. Ready Queue at Sending 
Time .......... 40 



FIGURES 



Figure 19. Queuing in Message 

Processing .,..,,., 46 

Figure 20. Ready Queue to Obtain 
Message .....„*.,...,,.. 47 

Figure 21. Ready Queue After 
Obtaining Message ....... ..48 

Figure 22. Functional Flowchart 

of QTAM Components (Part 1 of 2) .49 

Figure 23, 1050 Nonswitched 

Device I/O Module ..,..,.,,,. 55 

Figure 24. Interaction Between 

BTAM and QTAM Channel Programs . .117 

Figure 25. Linkage of ERP Modules 123 

Figure 26. Typical DSECT for BRB ,290 

Fiqure 2T. BRB on Inactive-BRB 

Queue „ ...., .290 

Figure 28. BRB Assignment of Next 
Segment Address .,,..,.. , .290 
Figure 29. BRB After Assignment 

of Next Segment Address 291 

Figure 30. BRB/CCW Initialized 

for Direct Access Read or Write . .291 

Figure 31. QTAM Linkages (Part 1 

of 4) .,....,....,.. .293 

Figure 32. Queues Affected by 

QTAM Routines .......,,., 30 2 

Figure 33. Control Block Linkages 303 
Figure 34. Example of Message 
Header and Text Relationships in 
Direct Access Destination and 
Process Queues ....,...,. .305 



PHYSICAL ORGANIZATION OF QTAM 



This section describes the various parts 
of the total package called QTAM and 
explains what the parts are, where they 
come f rom, how they get into the system, 
and their relationship to the rest of the 
package. The function of these QTAM parts 
and the logic of their operation are dis- 
cussed in detail in subsequent sections. 

Figure 1 shows the steps taken to begin 
processing in the QTAM environment. The 
following discussion deals with these 
steps: 

1. System generation,. 

2. Assembling and linkage editing a mes- 
sage control program. 

3. Assembling and linkage editing a mes- 
sage processing program. 

4. Initializing a message control 
program. 

5. Initializing a message processing 
program. 



8. Exit select 

9. Exit interface 



QTAM MACRO DEFINITIONS 

The operating system macro definition 
library (SYS1.MACLIB) includes the macro 
definitions used during the assembly of the 
message control program and message pro- 
cessing programs * Appendix D lists the 
QTAM macro instructions. 



EXTERNAL ROUTINES 

When performing a system generation to 
include QTAM, the user must define a spe- 
cial library area named SYS1.TELCMLIB. 
During the generation run,, all routines 
that will later be linkage edited with mes- 
sage control and message processing object 
modules are copied frcm SYS1.M0DLIB into 
SYS1.TELCMLIB,. In this publication, these 
routines are defined as external routines . 
Appendix D lists the modules in 
SYS1.TELCMLIB and indicates the function 
performed by the routine or routines in 
each module. 



SYSTEM GENERATION 

QTAM NUCLEUS 

When QTAM is called for during a system 
generation procedure (QTAM operand in 
DATAMGT system generation macro instruc- 
tion) , a number of routines collectively 
called the QTAM nucleus are included as a 
permanent part of the System/ 3 60 Operating 
System supervisor nucleus. These routines 
are then always present in the system, 
whether or not a telecommunications appli- 
cation is being run. 

The QTAM nucleus is packaged as a single 
module named IECKQQ01. During system 
generation, it is linkage edited from 
SYS1.MODLIB into SYS1. NUCLEUS. It is 
loaded from there by the IPL program as one 
of the resident SVC routines. The QTAM 
nucleus consists of the following nine sub- 
routines, each of which is discussed later 
in this manual: 

1. Entry interface 

2. QTAM wait 

3. QTAM post 

4. Qdispatch 

5. Defer entry 

6. Priority search 

7. Queue insert 



SUPPORT MODULES 

During the generation run, all modules 
that are loaded into main storage by the 
various Open executors and the QTAM Open 
and Close executors are copied from 
SYS1.MODLIB into the SYS1.SVCLIB. In this 
publication, these modules are defined as 
support modules * Appendix D lists the QTAM 
support modules in SYS1.SVCLIB. 



ASSEMBLING AND LINKAGE EDITING A MESSAGE 
CONTROL PROGRAM 

The user codes the QTAM macro instruc- 
tions necessary to design a message control 
program- The output cf this assembly 
includes: several tables and control 
blocks, a buffer area, linkages to QTAM 
external and support routines, and, except 
for these linkages and a few minor Line 
Procedure Specification (LPS) macro 
instruction expansions, very little other 
executable code. The message control 
object module may include some user-written 
routines, but these usually will not be 
extensive. 
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The assembled object module is then 
linkage edited to include the necessary 
external routines from SYS1.TELCMLIB. 
These external routines are the LPS rou- 
tines used in processing header informa- 
tion r translating from one code to another, 
directing messages to the proper lines and 
queues , etc . 

The resulting load module is stored in a 
system library to be loaded for execution. 



ASSEMBLING AND LINKAGE EDITING A MESSAGE 
PROCESSING PROGRAM 

A message processing program normally 
needs only the OPEN, CLOSE, GET f and PUT 
macro instructions and some data set 
definition macro instructions. When this 
is the case, no external routines are 
required to be linked with the object 
module. An installation will also write 
one or more message processing programs 
that use the following macro instructions 
to examine and modify the status of the 
control program: 

• CHNGP 

• CKREQ 

• CLOSEMC 

• CHNGT 

• COPYP 

• COPYT 

• COPYQ 

• RELEASEM 

• RETRIEVE 

• STOPLN 

• STARTLN 

When any of these macros are used, the 
linkage editor will include the correspond- 
ing external routines in the load module. 
The load module is stored into a system 
library for execution. 



INITIALIZING THE MESSAGE CONTROL PROGRAM 

The QTAM message control program is 
normally executed in partition as the 
highest priority task in the system. The 
initiator/terminator loads and transfers 
control to the message control program. 
The first QTAM macro instruction executed 
must open the DASD queue area. When the 
system Open routine detects the unique 
organization code for the QT£M DASD queue* 
it loads and transfers control to the first 
QTAM Open executor (module IGG01930) . The 
Open routine performs several functions 
described in more detail in subsequent sec- 
tions. For the purposes of this section, 
however, we need note only that the Open 
routine loads a large module called the 
QTAM Implementation module (IGG019NG) and 
Checkpoint/Restart module (IGG019NH) into 



partition 0* along with the Message Control 
Load module. 

The Implementation module contains three 
distinct types of routines - distinct as 
far as their logical relationship to the 
rest of the system. The three types are: 

1. Problem program routines - executed 
enabled to all interruptions as part 
of the message control program task. 
These routines receive control through 
branches from the external routines 
linkage edited with the message con- 
trol program. 

2. Supervisory routines - executed dis- 
abled to all interruptions as part of 
the QTAM nucleus "task." These rou- 
tines receive control through branches 
from the QTAM nucleus. 

3. I/O appendages - executed disabled to 
all interrupt ions , again logically as 
part of the QTAM nucleus "task." 
These appendages receive control from 
the I/O Interruption Handler in the 
input/output supervisor ( IOS) . 

The logical relationship of the preced- 
ing routines is discussed more fully in the 
next section. When only physical organiza- 
tion is considered, this collection of rou- 
tines represents no more than a convenient 
and efficient packaging technique. The 
Implementation module can in no way be 
thought of as a "program." 

When the DCBs for the communications 
line groups are opened* four other QTAM 
Open executors are used (modules IGG0193N, 
IGG0193R,, IGG0193T, and IGG0194A). These 
routines also perform several functions to 
be discussed later. For this discussion, 
however, note that only the WTTA Line 
Appendage (IGG019QB) is loaded by the first 
of these four executors when opening a WTTA 
line group; the BTAM Read/Write routine and 
BTAM modules containing model channel pro- 
grams are loaded by the third of these four 
executors. These modules are also loaded 
into partition 0. The BTAM Read/Write rou- 
tine is run in the problem program state as 
part of the user's message control task. 



INITIALIZING A MESSAGE PROCESSING PROGRAM 

It is possible to run a message control 
program with no message processing program. 
For example, a message switching applica- 
tion can be handled entirely within the 
message control program with a single mes- 
sage processing program loaded at the end 
of the day to initiate a system shutdown 
procedure. However, there is usually at 
least one, and possibly two or three, mes- 
sage processing programs being executed at 
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the same time as the message control 
program. 

In this discussion, assume the normal 
case where a message processing program is 
to be loaded into partition 1 immediately 
after the message control program is loaded 
and initiated. A Start Initiator Function 
should be employed. This will load the 
message processing program into partition 
1. When the message control task goes into 
the wait state f the message processing pro- 
gram opens the process queues, at which 
time the GET/PUT macro instruction support 
routines needed are also brought into par- 
tition 1. There are three Get modules and 
three Put modules. The modules selected 
depend on the unit of data processed by the 
program: segment , message, or record. 



At any point during the initialization 
of this message processing program task* 
control may return to the message control 
program because of an I/O interruption from 
one of the communications lines or from a 
direct access storage device. More often, 
execution of the processing program task 
continues up to the pcint of a GET instruc- 
tion before the message control task has a 
message to pass on. In this case, the pro- 
cessing task is placed in a wait state 
until the conditions for accomplishing the 
GET are satisfied. At any rate, the pro- 
cess of initialization is complete at this 
point with all of the parts of QTAM in 
place and running. 
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LOGICAL ORGANIZATION OF QTAM 



The previous section explained how the 
physical pieces of QTAM are positioned in 
main storage. This section discusses how 
these pieces are logically related and how 
they pass control back and forth. 

In tnis section, the logical organiza- 
tion of QTAM is discussed within two dif- 
ferent frameworks. First, QTAM is consid- 
ered as a part of operating system task 
management and within the structure and 
categories of that control program- Then 
QTAM is considered as a separate logical 
entity outside of the framework of the 
operating system control program, and is 
viewed as a control program in its own 
right. The key to understanding the logi- 
cal organization of QTAM lies in under- 
standing the overlap of the two control 
program structures. 



QTAM WITHIN THE OPERATING SYSTEM CONTROL 
PROGRAM STRUCTURE 



The various pieces of QTAM discussed in 
the preceding section can be grouped into 
three logical categories: 

1. Message control program 

2. Message processing program (s) 

3. QTAM supervisory routines 

The message control program and message 
processing programs are both run under con- 
trol of the operating system task manage- 
ment routines. When considered as a part 
of operating system task management, these 
programs are in no way different from any 
other processing program tasks . They are 
scheduled and dispatched according to the 
priorities indicated in the task control 
blocks (TCBs) for the partitions in which 
they are being run. 

After distinguishing and separating the 
two processing program tasks, only the 
third category, the QTAM supervisory rou- 
tines, remains. These routines are 
executed as type 2 SVC routines or as asyn- 
chronously scheduled I/O interruption- 
handling routines. Strictly speaking, they 
are executed as part of the processing pro- 
gram tasks. Practically speaking, however, 
it is more meaningful to think of these 
routines as a separate category outside of 
the task framework established by operating 
system task management. This section is 
primarily an explanation of the nature of 



this third category in relation to the 
other two categories. The discussion con- 
tinues subsequently in the section QTAM 
Supervisory Routines, but first the message 
control program and message processing 
problem programs are more closely defined. 



MESSAGE CONTROL PROBLEM PROGRAM 



The message control problem program 
includes the following: 

1. The object module output from the 
assembly of the user's code. 

2. The external routines linkage edited 
with the assembly output. 

Note : If the DLIST macro instruction 
is used, a single supervisory routine, 
called the Distribution List routine 
in a module named IECKDLQT,, is linkage 
edited into the message control load 
module. This routine is one of the 
supervisory routines, and is not part 
of the problem program. 

3. Five of the routines in the implemen- 
tation module brought into partition 
by the DASD OPEN: 

Note : Full descriptions of these rou- 
tines may be found under the heading 
QTAM Implementation Module Routines,. 
Flowchart "IDs" for each are identi- 
fied below: 

• Activate (Chart DP) 

• LPS Control (Chart DO) 

• Buffer Cleanup and Recall (Charts 
DD„DE) 

• Free BRB (buffer request block) 
(Chart DF) 

• End Insert (Chart DG) 

4. The BTAM Read/Write routine and BTAM 
Device I/O modules (modified for and 
incorporated into QTAM) brought in by 
the line group OPEN. 

A simplified flowchart of the message 
control problem program is shown in Figure 
2. The flowchart is included to show how 
four problem program routines in the Imple- 
mentation module and the BTAM Read/Write 
routine are related to the rest of the mes- 
sage control program. 
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Flowchart of Message Control Program 



MESSAGE PROCESSING PROBLEM PROGRAM 

A message processing problem program 
includes: the assembled user code f any 
external routines linkage edited with the 
code, and the Get and Put routines. The 
only difference between a QTAM message pro- 
cessing program and any other processing 
program is the requirement for and the 
implementation of interpartition communica- 
tion. The various macro instructions that 
can be used in a message processing program 
are handled as follows: 

1. COPYP, COPYT, and COPYQ . These macro 
instructions present no problem. The 
corresponding external routine simply 
reads the requested information from 
partition , using address pointers 
stored in the communications vector 
table (CVT) and in the terminal table. 

2 . All other macro instructions . The 
remaining macro instructions cause SVC 
interruptions to the QTAM supervisory 
routines. Any cross-partition com- 
munication is done by the supervisory 
routines , operating under the storage 
protection key of the supervisor. 

The only unusual operation to be noticed 
when logical organization is considered is 
in the case of a PUT macro instruction. To 
avoid including a large amount of code in 
the supervisory routines for each of the 
three types of PUT (segment, record, or 
message) , certain code that rrust be 
executed in the supervisor state is pack- 
aged within the Put modules. The SVC rou- 
tine entered as a result of a PUT branches 
directly back to these routines in the 
problem program Put modules to execute them 
in the supervisor state. 



QTAM SUPERVISORY ROUTINES 

This discussion of the QTAM supervisory 
routines is still within the framework of 
the operating system control program. When 
the physical organization of these routines 
is considered, they consist of: 

1. The routines within the supervisor 
nucleus. 

2. The routines within the Implementation 
module (in partition 0) that are 
executed in the supervisor state. 
This includes all except the five rou- 
tines previously identified as part of 
the message control problem program. 

3. The Distribution List routine linkage 
edited with the message control 
program. 



4. Part of the Put modules in the message 
processing problem partition(s) . 

When the interruption-handling facili- 
ties of the operating system are consid- 
ered, the QTAM supervisory routines consist 
of: 

1. Type 2 SVC routines entered by SVCs 65 
and 67 from problem program 
partitions. 

2. Asynchronously scheduled I/O 
interrupt ion- handling routines entered 
from IOS. 

Although the QTAM supervisory routines 
can be considered from either point of 
view, neither is very helpful in under- 
standing the logical organization of QTAM. 
For example, a routine within an appendage , 
to which control is passed to process an 
I/O interruption, iray also be executed as 
the result of an SVC interruption. The 
problem is that both points of view are 
taken from within the framework of the 
operating system control program environ- 
ment and are seen within the categories of 
that system. The solution to the problem 
lies in understanding the implications of 
the statement: "QTAM is a Control Program. " 

QTAM is a control program that is within 
a second control program- Before discuss- 
ing how the two control programs overlap, 
it is important to describe the QTAM con- 
trol program within its own framework as a 
separate logical entity- 



QTAM AS A SEPARATE CONTROL PROGRAM 

The one essential function of a control 
program is the allocation of system 
resources. The system resources to be 
allocated by QTAM are: 

1. CPU processing time 

2. Main storage space 

3. I/O paths 

In order to perform this allocation 
function efficiently* it is necessary to 
break up the system resources into the 
smallest practical number of pieces. This 
is done as follows: 

1. The work to be done is broken into 
many separate work units that are 
defined as QTAM subtasks of message 
processing and message control tasks. 
Small pieces of the time resource are 
then allocated to individual subtasks. 

2. The main storage space to be allocated 
is broken into a large number of buf- 
fers. Thus, only that amount of 
storage absolutely required at a given 



Logical Organization of QTAM 15 



time need be tied up for a given 
function, 

3. The I/O paths controlled by QTAM are 
the communications lines and the disk 
queue. Only that I/O path absolutely 
required at a given time need be tied 
up for a given function. 

The term allocation is usually used only 
to refer to physical resources ; scheduling 
refers to time resources. In a QTAM con- 
trol program (as opposed to the operating 
system) the entire allocation function is 
performed by a single mechanism. This 
allows interdependence of scheduling and 
allocation. 

The following sections describe the 
resource allocation mechanisir of QTAM. The 
key to the mechanism is the ready queue , 
the structure through which a resource is 
allocated to a subtask. The actual 
mechanism of allocation is the Qwait and 
Qpost operations performed by the QTAM sub- 
tasks. Qwait, in effect, puts a request 
for a resource on the ready queue. Qpost 
passes an available resource to the ready 
queue. The QTAM nucleus performs a queue 
management function that includes dispatch- 
ing the subtask that is at the top of the 
ready queue. 



QUEUE MANAGEMENT 

Elements, Queues, and Subtasks 

The physical resources of the system are 
broken into elements (e.g., the buffer 
pool/ a resource, is broken into individual 
buffers, the elements) with each element 
represented by an RECB (resource element 
control block) , which can be thought of as 
an 8-byte identifying prefix. 



RECB 



BUFFER 



If the RECB points to an available buffer 
queue, the buffer is free and not in use. 
The RECB is an identifier. 

For every element in the system, there 
is at least one subtask that works with the 
element. These subtasks are represented by 
STCBs (subtask control blocks) . 

The elements, and the subtasks that 
operate on these elements, are associated 
with one another through the use of a third 
control block, the QCB (queue control 
block) . Thus, a QCB will have a pointer to 
the chain of elements under its control and 
a pointer to the chain of subtasks waiting 
to operate on these elements. 
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Figure 3. (Part 1 of 2) 

When a subtask needs an element, it 
requests one from the QCB that handles that 
particular element by "Qwaiting" in the 
STCB chain of the QCB. If the element is 
available, the subtask that Qwaited is 
dispatched. 
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Figure 3. (Part 2 of 2) 

When a subtask has finished using an 
element, it gives (Qpcsts) the element to 
the appropriate QCB (Figure 4). The QTAM 
nucleus gives this element to the first 
(highest priority) subtask in the STCB 
chain of the QCB. (Subtask A in Figure 5 
would be dispatched). Note, however, that 
STCB A is not usually removed from the STCB 
chain unless it Qwaits on another QCB.) If 
another element is posted to this QCB, sub- 
task B will be dispatched. The STCB chains 
end with a permanent STCB. (STCB C, in 
Figure H, will remain the last STCB in the 
chain. ) STCB C might point to a routine 
that does nothing more than chain elements 
into the QCB's element chain. Subtask C 
would have a lower priority than any other 
subtask that might use the element and 
would, therefore, be dispatched only if no 
other subtask needed the element* 
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Figure 5, 

The Ready Queue 

The previous discussions pointed out 
that suotasks gain control depending on; 

1. The availablity of elements; 

2. The priority of the subtask. 

Since QTAM is a control program, it is 
responsible for allocating CPU processing 
time to the various tasks under its con- 
trol. The mechanism it uses is called the 
ready QCB, which can be thought of as a QCB 
whose element chain is "time" and whose 
subtask STCB chain is all the work to be 
done in the system. (Note that the ready 
QCB's subtask chain is called the ready 
queue ) . The work to be done is represented 



by the various QCBs and RECBs. These QCBs 
and RECBs, just like the STCBs within their 
own chains, appear on the ready queue in a 
priority order (Figure 6). 

To complete the general picture (Figure 
6), an RECB (resource element control 
block) appears on the ready queue. As was 
mentioned previously, when an element is 
Qposted to a QCB, the first subtask in the 
QCB's chain gets control (register 1 points 
to the RECB being Qposted) . 

In most cases, however, the Qpost is a 
two step operation. The element's RECB 
contains a pointer to the queue to which it 
is being posted and is placed on the ready 
queue in priority order (this is the first 
step). As time becomes available for pro- 
cessing, the ready queue is examined by a 
routine called Q dispatch in the QTAM nu- 
cleus. If the routine finds an RECB on the 
ready queue, the RECB is replaced with its 
QCB; then the first subtask in the QCB's 
chain is executed (this is the second step 
of the Qpost operation [Figure 7]). 

The ready queue's operation can be 
understood through an illustrative example 
dealing with two simultaneous events: 

First Event : A message starts coming 
across the line into an allocated buffer. 
Other buffers must be obtained to accommo- 
date the message in case its length exceeds 
that of one buffer (high priority event). 

Second Event : At the same time, a subtask 
that has written a buffer to a disk now 
frees the buffer by posting it to some QCB 
whose subtask will chain it into an element 
chain (low priority event). 

In order to obtain a buffer,, a BRB (buf- 
fer request block) is posted to a QCB whose 
subtask will eventually fulfill the request 
for the buffer. The empty buffer and a BRB 
will be placed on the ready queue "on their 
way" to their appropriate queues. It is 
much more vital to obtain a buffer for the 
incoming message than to chain the freed 
buffer, so QTAM assigns a higher priority 
to the BRB than to the buffer and chains 
them both into the ready queue in priority 
order. The BRB will, therefore, be handled 
first (i.e.., the BRB will be replaced on 
the ready queue by the QCB to which it was 
posted; and the first subtask in the QCB's 
STCB chain will get ccntrol to obtain the 
needed buffer) . 
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| CONTROL BLOCKS 

Resource Element Control Blocks 

There are three main types of permanent 
resource element control blocks (RECBs): 

1. Buffer RECBs 

2 . Communications line RECBs 
3,. Buffer request RECBs 

I Figure 8 shows the general form of a 
RECB. 

Buffers are areas of main storage used 
to contain message data and/or control 
information. The first 8 bytes of each 
buffer comprise an RECB. As with all QTAM 
elements, the identity of a buffer at a 
particular time depends solely upon the 



queue its representative RECB is chained 
into at that time. The buffer itself is 
always physically identifiable as a fixed 
number of bytes of main storage. If the 
RECB representing the buffer is chained 
into a destination queue control block 
(QCB), the buffer is full; that is, it con- 
tains a message segment to be transmitted 
to a destination. When the same RECB is 
subsequently chained into the available 
buffer QCB, the element involved is an 
available buffer, even though there has 
been no change in the physical storage 
area. 

Communications lines are represented to 
QTAM through the line control block (LCB),. 
There is an LCB for each line. When a sub- 
task has control of an LCB, it has control 
of the line* Therefore, the LCB itself is 



Logical Organization of QTAM 19 



treated as the resource element, 
is contained within the LCB. 



The RECB 



In order to avoid preassigning buffers 
before they are actually needed, QTAM uses 
buffer request blocks (BRBs) to queue buf- 
fer requests. (This process is explained 
later in the section entitled Outline of 
QTAM Operation*) These BRBs are elements. 
The RECB is contained within the BRB. 
There are at least as many BRBs in the sys- 
tem as the number of buffers in the buffer 
pool. Thus, this pool of BRBs is itself a 
pool of resources to be allocated to the 
various subtasks that use them. 
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which the element has been posted. 
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Figure 8* Resource Element Control Block 

Subtask Control Blocks 

There are two types of subtask control 
blocks (STCBs) : 

1. Truncated STCBs 

2. Full STCBs 

These are shown in Figure 9. 

Truncated STCBs represent subtasks that are 
executed in supervisory state. These sub- 
tasks are performed by routines that are 
packaged within the Implementation module 
(and also by the Distribution List routine 
linked with the message control program) . 
These routines are called implementation 
routines and the truncated STCB represents 
an implementation subtask . 

Full STCBs represent subtasks that are 
executed in problem program state. These 
subtasks are performed by the message con- 
trol program and message processing problem 
programs. At this point, we see the over- 
lap of the operating system control program 
structure with the QTAM control program 
structure. A QTAM problem program subtask 
is created when an SVC 65 (Qwait) or 67 
(Qpost) is issued within an operating sys- 
tem task. More specifically, the supervi- 
sor request block (SVRB) created by the 
second- level Interruption Handler is modi- 
fied and used as a QTAM STCB. As a sub- 
task, the problem program is placed under 
the subtask management of QTAM and must 
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guish between a truncated and a full 
STCB. It is also used* in some cases, 
a branch modifier to the routine asso- 
ciated with this STCB. 
Priority is of the subtask the STCB 
represents. 

Link address is a pointer to the next 
STCB in the chain. If the STCB can be 
the only STCB in a chain, the last 2 
bytes of this field are truncated and the 
STCB is assembled directly preceding its 
routine. 
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Figure 9. General Form of Full and Trun- 
cated STCB 

contend for control in that multitask 
environment before it is released to con- 
tend with other operating system tasks in 
the system. The way in which this is 
implemented is discussed more fully in the 
following sections. Note at this point f 
however, that every problem program request 
that results in a QTAM SVC 65 or 67 causes 
a subtask to be created. These problem 
program subtasks are always lower in 
priority than any implementation subtask; 
thus they are never considered for dis- 
patching until all of the internal imple- 
mentation subtasks have done all of the 
work possible with the resources available. 
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There can never be more than one full STCB 
per problem program partition at a time. 



Queue Control Blocks 

The ready queue can be thought of as a 
queue of queues, each queue being asso- 
ciated with a queue control block (QCB) . 
Figure 10 gives the general form of all 
QCBs that are on the ready queue and an 
example of a QCB that has replaced an RECB 
on the ready queue. The types of queues 
that may appear at any given time on the 
ready queue are discussed in the following 
paragraphs. A more complete and detailed 
list of queues is given in Appendix A. 

Available Buffer Queue : This queue is used 
to keep track of unassigned buffers. The 
element chain is the chain of all buffers 
that are not assigned. As soon as a buffer 
is no longer needed, it is posted to this 
queue. The STCB chain for this QCB is 
limited to the STCB for the available buf- 
fer subtask, which is used whenever a buf- 
fer is made available. 



Inactive BRB Queue : This queue is used to 
keep track of inactive buffer request 
blocks. The element chain is the chain of 
all BRBs that are not assigned. As soon as 
a BRB is no longer needed* it is posted to 
this queue. The STCB chain may contain the 
STCB for a receive-scheduling subtask and/ 
or one or more send-scheduling subtasks,. 



Active BRB Queue : This queue is used to 
pass active buffer requests from the 
various subtasks that require buffers to 
the active buffer request subtask, which 
obtains the buffers. The element chain is 
the chain of active BRBs. The STCB chain 
is limited to the STCB for the active buf- 
fer request subtask. 

Additional CCW Queue : This is a queue of 
insert blocks containing the CCWs used to 
transmit idle characters when certain line 
control characters are encountered in an 
outgoing message. When one of these line 
control characters is encountered by the 
send portion of the LPS, the problem pro- 
gram waits for this queue to obtain one of 
these insert blocks. 



LPS Queue : This queue is used to pass ele- 
ments from the QTAM control program to the 
message control problem program. As shown 
in Figure 2, the element chain may point 
to: 

1. An empty buffer, signifying that a 
Line Read operation is to be 
initiated. 

2. A message-filled buffer to be passed 
through some portion of the LPS. 

3. A request for a disk I/O operation to 
be started. 

4. A request for a QTAM closedown. 

The LPS queue controls the problem pro- 
gram of the message control task. The LPS 
Control routine in the message control pro- 
gram waits for the LPS queue. When an ele- 
ment is available, the LPS Control routine 
is given control. This routine examines 
the element to determine which of the four 
possibilities is the first item in its ele- 
ment chain. Figure 2 shows the action that 
is taken for each case. The STCB chain for 
this QCB is the STCB for the LPS Control 
routine. 

Main Storage Process Queue : This queue is 
used to pass full buffers from the QTAM 
control program to a message processing 
program. The element chain is the chain of 
buffers containing the message unit that is 
passed to the message processing program. 
This is the QCB that a message processing 
program GET waits for. 



Disk Input/Output Queue : BRBs containing 
channel command words are posted to this 
queue when a Disk Read operation is 
required- Full buffers are posted to the 
same queue for writing messages on the 
disk. The STCB chain is limited to the 
STCB for the disk input/ output subtask. 



Communications Line Queue : There is one 
QCB for each communications line. The QCB 
is created from the LCB itself when the LCB 
is encountered on the ready queue. This 
occurs as follows: 

1. When a send or receive operation is 
completed, the LCB is posted to the 
ready queue as an element. 

2. When the LCB reaches the top of the 
ready queue, a field within it is 
initialized as a QCB. 

3. The element chain is then completed by 
posting the LCB to itself. 

4. A receive-scheduling subtask is then 
dispatched for the line unless there 
is already a send-scheduling subtask 
waiting for the line. 

Return Buffer Queue : This queue is used by 
the GET macro instructions to return a buf- 
fer. After the data has been transferred 
to the work area, the buffer is returned to 
the available buffer queue via this QCB. 

Time Queue : This queue is used to delay 
the polling of a line for a specified 
amount of time. The element chain for this 
queue is the LCB waiting for an interrupt 
from the Timer.. 
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Example of the Available Buffer QCB on the Ready Queue 
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Figure 10. General Form of QCB and Example of QCB on the Ready Queue 



Move Data Queue ; This queue is used to 
move data while in supervisor mode. Data 
can be moved within a partition or across 
partitions. 



Interim LPS Queue ; This queue is used to 
delay processing of buffers until all 
requests have been processed. Elements of 
this queue are transferred to the LPS 
queue. 

Note ; Both the DASD destination QCB and 
the DASD process QCB never appear on the 
ready queue. They are assembled off the 
ready queue, but with a Key of 3 (see the 
following discussion of Keys and Appendix 1 
for a description of the above QCBs) . 



QWAIT AND QPOST 

A suotask requests a resource from a 
queue by issuing a Qwait on the associated 
QCB. A subtask passes a resource that it 
is finished with by Qposting the resource 
to the proper QCB. 



Qwait from Problem Program ; A problem pro- 
gram (either message control or message 
processing) requests an element from the 
QTAM system by issuing an SVC 65. 



Note ; All QTAM SVCs are macro generated. 
The programmer should never have to issue 
one directly. Because this is a type 2 
SVC f the supervisor call second-level 
Interruption Handler (SVC SLIH) creates an 
SVRB and passes control to the Entry Inter- 
face routine in the QTAM nucleus,. 

The operating system SVRB is converted 
to a QTAM full STCB and is temporarily 
chained into the STCB chain of the last 
dispatched QCB (i.e., if the message con- 
trol problem program [LPS] was issuing the 
Qwait, the LPS QCB would have been the last 
dispatched QCB) . The address of the QCB 
for the element queue being waited for is 
passed in register 2. If the element is 
available, the full STCB is removed from 
its temporary chain, the element's address 
is placed in register 1, and control is 
returned to the problem program. 

If an element is not available, the full 
STCB is added to the STCB chain of the QCB 
whose element chain is being waited for. 
An SVC 1 (WAIT) is issued to place the 
requesting task in the wait state. The 
operating system task management routines 
then dispatch some other task if there is 
one waiting. Otherwise, these routines 
place the entire system in the wait state. 

When another subtask subsequently posts 
an element to the queue that the problem 
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program waited for, QTAM dispatches the 
problem program subtask by posting the 
event control block waited for as complete. 
The problem program is then dispatched in 
its proper task priority by operating sys- 
tem task management. 

Qpost from Problem Program : A problem pro- 
gram (either message control or message 
processing) passes an element to the ready 
queue by issuing an SVC 67. As with the 
Qwait, the SVRB contains the address of the 
Qattach QCB and is converted to a QTAM full 
STCB. The Qpost STCB is then chained into 
the STCB chain of the last dispatched QCB. 
However, in the case of the Qpost,, the last 
dispatched QCB will usually be the ready 
QCB itself. Thus, the full STCB will be 
chained directly on the ready queue (see 
the discussion of Keys for an example of 
Qpost) . The address of the queue that the 
element is being posted to is passed in 
register 2, and the address of the RECB for 
the element being passed is in register 1. 
The RECB is placed on the ready queue. 
(Note that when the ready QCB is the last 
one dispatched, the RECB is placed on the 
ready queue above the full STCB. The RECB 
has a higher priority,. ) If a subtask is 
waiting for the element, it is dispatched 
in priority order. If no subtask is wait- 
ing for the element, the RECB is chained to 
the proper QCB. When the full STCB gets to 
the top of the ready queue, control is 
returned to the problem program by the OS 
supervisor routines. 

Qwait from Internal Implementation Subtask : 
When one of the implementation subtasks 
requires an element, the subtask checks the 
QCB for the element queue being waited for. 
If the element is available, the subtask 
removes it from the chain and relinks the 
element chain, if necessary. 

If tne element chain is eirpty, the sub- 
task branches directly to the queue manage- 
ment routines in the QTAM nucleus. If the 
STCB for the requesting subtask is not 
already chained to the QCB for the 
requested element, it is placed on the 
chain. Control then passes to the Dispatch 
routine to activate the next subtask. 



Qpost from Internal Implementation Subtask : 
When one of the implementation subtasks has 
an element to pass to the ready queue, it 
branches directly to the Qpost routine in 
the QTAM nucleus. The RECB, containing the 
address of the QCB to which it was posted, 
is placed on the ready queue. The STCB for 
the subtask that posted the element is left 
chained to the QCB that it was already on, 
and either the Qposting subtask or the sub- 
task waiting for the element will be 
executed. 



QPOST EXAMPLE 

The new, full STCB is placed on the chain 
of the last dispatch QCB (the ready queue) 



READY QCB 



QATTACH 

READY 
DUMMY 






LAST DIS- 
PATCHED QCB 








1st item 
(READY QUEUE) 




WAITR 




(pointer to 
next in the ready 
queue chain, i.e 
dummy) 



The Priority Search/Queue Insert routine 
places the posted element on the ready 
queue in priority order in front of the 
full STCB. 
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The Dispatch routine finds an RECB with 
a key of and replaces it with its QCB 
(III). 



READY QCB 
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(QCB to which the element 
was 
posted) 



The QCB has replaced the RECB. The QCB 
has a key of 3 , and the truncated STCB in 
its chain is dispatched. When the subtask 
terminates, the Dispatch routine is 
entered. The key in the ready queue's QCB 
is set to 2. A QCB with a key of 3 is 
found at the top of the ready queue. The 
QCB is removed and its key is set to 1. 




The QCB at the top of the ready queue 
has been removed. The ready QCB is dis- 
patched by setting the key to 2. The ready 
queue is examined and an RECB (full STCB) 
with a key of is found. The QCB pointed 
to (Qattach or the ready queue) looks as if 
it were on the ready queue (since it has a 
key of 2). The Exit Select routine sets 
the ready queue's key to 3; finds the full 
STCB in the chain (this chain is the ready 
queue); and posts it complete and exits. 
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READY QCB 



QATTACH 

READY 
DUMMY 




QTAM NUCLEUS 

The QTAM nucleus provides the overall 
queue management facilities. These facili- 
ties include: 



Highest-Code (EC) : The only elements ever 
given a code of EC are a BRB or special 
dummy element. This is done in five 
instances: 

1. To indicate that the buffer request 
for a disk operation has been unable 
to be assigned a buffer. 

2. To indicate that a buffer request is 
made by the PCI interruption routine 
for the first PCI on a receive 
operation. 

3. To execute a portion of the code of 
the Put routine in supervisor mode. 

h. To recognize that a SIO is to be 
issued to the DASD. 

5. To recognize that a QTAM closedown is 
in progress. 

Second Highest-Code (E4) : This priority is 
given to all elements being passed to 
implementation subtasks that are disabled 
to interruption, except those with a code 
of EC. 

Third Highest-Code (EQ) : This priority is 
given to all elements being passed to the 
message control program. 

Lowest-Code (DC) : This lowest priority 
code is given to all elements being passed 
to message processing programs. 



1. Interfacing with the operating system 
to convert SVRBs to STCBs . 

2. Placing problem programs in the wait 
state and then posting them as 
complete. 

3. Chaining RECBs to the ready queue, and 
STCBs to QCBs in the proper priority 
sequence. 

4. Dispatching the highest-priority 
suotask. 

The nucleus is composed of several sub- 
routines; each is discussed in the section 
QTAM Control Module. At this point, how- 
ever, we can look at the queue management 
facility as a whole. Figure 11 shows a 
generalized flowchart of the nucleus. The 
Qdispatch routine examines the item at the 
head of the ready queue. The position of 
all items on the ready queue is determined 
by the relative priorities of elements as 
they are posted to the queue. Generally 
speaking, the priority of an element is 
determined by the type of subtask to which 
it is being passed. There are four priori- 
ties, indicated by a hexadecimal code in 
the RECB. 



| QDISPATCH ROUTINE 



Qdispatch follows the address pointer in 
location READY to the item (either an RECB 
or QCB) at the top of the ready queue. To 
determine whether the item is an RECB or 
QCB, Qdispatch examines the key field in 
the first byte. 

• Key=0 : All RECBs have a key of zero. 
In some instances full STCBs appear 
directly on the ready queue instead of 
being chained to the QCB. Qdispatch 
will find a full STCB during initiali- 
zation, when the ENDREADY macro 
instruction is executed and during a 
Qpost from a processing program (see 
sample Qpost above in Qpost Example) . 
This full STCB appears to Qdispatch as 
an RECB pointing to a location labeled 
QATTACH at READY- 8„ the QCB of the 
ready queue. Therefore, the full STCB, 
whose address is at location READY (the 
top of the ready queue), appears at the 
head of an STCB chain in a QCB labeled 
QATTACH, and the full STCB is given 
control . If Qdispatch finds an RECB, 
one of the following events will 
result: 
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1. If the QCB pointed to by the RECB 
is not on the ready queue (key=l) , 
the RECB is replaced by its QCB, 
and the first STCB in that QCB's 
chain is dispatched (see the queue 
management discussion) . 

2. If the QCB pointed to by the RECB 
has a key of 2, the RECB remains 
chained to the ready queue, and the 
first subtask in the QCB's STCB 
chain is dispatched. 

3. If the QCB has a key of 3, the RECB 
is removed, and then the first sub- 
task in the QCB's chain is dis- 
patched. Note that the QCB does 
not, in the this case, replace the 
RECB on the ready queue. 

• Key=l ; Indicates a QCB that is not on 
the ready queue. 

• Key=2 : A key of 2 indicates a QCB with 
a subtask at the top of its STCB chain 
that is ready to be dispatched. A QCB 
with a key of 2, however, represents a 
special case. The STCB that is ready 
was previously entered when an element 
was made available to it. At some 
point in its processing, it exited (by 
Qposting or branching to either another 
Implementation module routine or to 
another part of the nucleus) . Before 
it exited, however, it elected to be 
reentered whether or not another ele- 
ment was made available to it. In 
order to be reentered, this STCB had 
set its own QCB key to 2. Now, when an 
element is posted to this QCB, Qdis- 
patch will discover that it is already 
on the ready queue with a key of 2. 

The STCB will, at this point, be reen- 
tered immediately. The element, how- 
ever, will not be removed from the 
ready queue. 

In summary then, when Qdispatch finds 
an RECB pointing to a QCB with a key of 
2, the first STCB in its chain will be 
gaining control for a second time 
(reentered) , and that RECB will not be 
removed from the ready queue. 

• Key=3 ; A key of 3 indicates a QCB with 
an associated subtask that has been 
dispatched, and the subtask has 
finished all the processing required 
witn the element passed to it. 

Note : The dispatched STCB may or may 
not be the top STCB of the QCB's chain. 
The suotask might have, during the 
course of its operation, Qwaited on 
another QCB, in which case it would 
have been chained into the new QCB's 
STCB chain. Regardless of the location 
of the STCB, when Qdispatch finds a QCB 



with key=3, it removes the QCB from the 
ready queue and sets its key to 1. 

The flowchart in Figure 11 further shows 
how control is passed to the dispatched 
subtask. If the suatask is represented by 
a truncated STCB, the Exit Select routine 
simply branches to the entry point of the 
subtask. If it is a problem program sub- 
task (full STCB), the Exit Interface rou- 
tine branches to the Supervisor Post rou- 
tine -co post this SVRB/STCB as complete, 
and then issues an SVC1 (WAIT) on the STCB 
that the QTAM control program is currently 
operating under. These SVRBs may or may 
not be the same,. When they are not the 
same, we see the case where QTAM is placing 
one problem program task in the wait state 
and enabling another task that was pre- 
viously placed in the wait state to again 
be dispatched by the operating system task 
supervisor. 

There is one dummy element that is used 
to indicate the end of all element chains 
and is permanently the last item on the 
ready queue- This dummy element is preas- 
sembled in the ready queue's QCB (see 
Figure 6). Note that the physical blocks 
of main storage — the RECBs, QCBs, STCBs, 
and this dummy element — are never physical- 
ly moved in main storage. Their pointers 
are merely changed to reflect their current 
relative positions (on or off the ready 
queue, in a chain, etc.). When this dummy 
element reaches the top of the ready queue , 
a final wait is issued to place the last 
QTAM problem program in the wait state 
until an asynchronous item is put on the 
ready queue. 

Summary : The ready queue controls alloca- 
tion of the resources. The contents of the 
ready queue tie an element with a subtask. 
Each resource element is represented by an 
RECB (Resource Element Control Block), 
which contains a pointer to an appropriate 
QCB. The QCB contains a pointer to an STCB 
associated with a routine that performs the 
desired function. To allow more than one 
item to request a subtask or wait for a 
resource, items are chained or queued to a 
QCB. Each subtask has an associated trun- 
cated STCB that contains a code that is 
used to gain access to the routine address. 
RECBs to be acted upon, QCBs with asso- 
ciated STCBs waiting for a resource, and 
full STCBs representing processing programs 
are chained to the ready queue. The second 
word of each item on the chain of the ready 
queue contains the address of the next item 
on that queue. The last item points to a 
dummy item. The position of all items on 
the ready queue is determined by priorities 
of the resource. These priorities, set by 
the subtask posting the resource, are 
determined by the type of function to be 
performed. 
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A suotask requests the resource (Qwaits) 
it requires for its execution from the 
appropriate QCB, performs its function, and 
passes (Qposts) the resource to another QCB 
for the next function to be performed. The 
Qposting and Qwaiting is done by the QTAM 
control program (IECKQQ01 in the nucleus). 
After cnaining the item into its proper 
place, the QTAM nucleus examines the first 
item in the ready queue chain to determine 
which routine is to receive control. Three 
items can appear on the ready queue: 

1 . RECBs 

2. Full STCBs 

3 . QCBs 

The first byte of these control blocks 
contains a key, QKEY. A key of zero indi- 
cates an RECB or a full STCB. A QCB has a 
nonzero key whose value shows the status of 
the QCB. These keys are either preas- 
sembled in the QCB or set by IECKQQ01. 

The three main types of elements repre- 
sented Dy RECBs are: buffers, buffer re- 
quest blocks (BRBs), and line control 
blocks (LCBs) . By posting an element to a 
queue the QTAM nucleus (refer to Figure 11) 
causes: 

1. The QCB address, passed in register 2, 
to oe placed in the RECB whose address 
is passed in register 1. 

2. The R^CB to be inserted into the chain 
of the ready queue in priority order. 

3. When the RECB reaches the top of the 
ready queue, the QCB, in the RECB, to 
replace the RECB on the ready queue if 
the QCB is not on the ready queue. 

4. A subtask to be given control to per- 
form the function. The truncated STCB 
in the STCB chain of the QCB provides 
the address of the routine for the 
suotask. 

There are three ways of posting this 
element : 

1. If a Qpost is issued via an SVC (only 
done in the problem program) , an SVRB 
is created by the system, and the nu- 
cleus is entered at the Entry Inter- 
face subroutine. This subroutine 
transforms the SVRB into a full STCB 
that is used to return to the problem 
program. The RECB is chained as 
described above. 

2. If posting is done in the implementa- 
tion subtasks, registers 1 and 2 are 
set with the address of the RECB and 
QCB respectively, and the subtask 
branches directly to the post subrou- 
tine in the nucleus . 



If the implementation subtask wishes 
to post several elements before anoth- 
er subtask gets control „ the implemen- 
tation subtask places the RECB con- 
taining a QCB address directly on the 
ready queue. 



A full STCB is made from an SVRB created 
by the operating system as the result of an 
SVC. The STCB is chained to the last dis- 
patched QCB. If this QCB is the ready 
queue, then the STCB is chained directly 
onto the ready queue. This STCB appears to 
the nucleus as an RECB whose QCB is on the 
ready queue with key=2. When the Exit 
Select subroutine discovers that it is a 
full STCB (by a zero code for the address 
of the routine), control is not given to a 
routine. The Exit Interface routine posts 
the ECB in the STCB as complete and issues 
a WAIT (SVC 1) for the entry STCB. Normal- 
ly IOS, through the SVRB-STCB, returns con- 
trol to the problem program. If this STCB 
that was serviced was not for the SVC that 
caused the entry, the message control task 
is in a wait state until there is an asyn- 
chronous interrupt. 

The special form of the QCB (12 bytes) 
is the only type of QCB that appears on the 
ready queue. DASD process and destination 
QCBs (full QCBs) are not chained on the 
ready queue. A QCB can be placed on the 
ready queue by a Qpost or Qwait. 

When an element has been posted to a 
queue and that queue is not on the ready 
queue, then the QCB is chained on the ready 
queue in place of the RECB. The key of the 
QCB is set to 3 to indicate that the QCB is 
on the ready queue but has been dispatched. 
When this QCB is encountered on the ready 
queue with a key of 3, it is removed and 
the key is set to 1 to indicate that it is 
not on the ready queue. 

The above occurs for all QCBs with the 
exception of DASD destination and DASD pro- 
cess QCBs. As mentioned previously, these 
two QCBs never appear on the ready queue. 
They are preassembled off the ready queue , 
with key=3. When an element is posted to 
one of these QCBs, it appears (to Qdis- 
patch) that it is on the ready queue (since 
its key=3), and the first STCB in its chain 
will get control. Note, however, that 
these two QCBs do not replace the RECBs on 
the ready queue. 

As the result of a Qwait, the full STCB 
is chained to the last dispatched queue. 
If there is an element available in the QCB 
being waited for (passed in register 2 to 
the Wait subroutine)* the subtask is given 
control. The ECB in the full STCB is post- 
ed complete. Control returns to the prob- 
lem program as the Qwait was satisfied. 
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If the QCB being waited on is ready to 
be activated (key=2) , the Defer Entry sub- 
routine causes the STCB to be chained to 
the correct QCB but deferred. If the QCB 
is not ready to be activated (key=l or 3), 
the STCB is chained to the correct QCB (if 
the last dispatched queue is the one being 
waited for, the QCB is immediately dis- 
patched) , and the QCB is inserted in 
priority order on the ready queue. When an 
element is posted to this QCB, the STCB 
chained to the QCB is the full STCB pre- 
viously chained. The QTAM control routine 
recognizes the full STCB and posts the 



event as complete. Return is made to the 
routine that issued the Qwait, for now this 
wait has been fulfilled. 

Therefore, at a given moment, the ready 
queue consists of a chain of full STCBs, 
QCBs, and RECBs, arranged in priority 
sequence. The rate at which a subtask 
acquires resources is based on the avail- 
ability of the resources and priority of 
subtasks. This allocating and dispatching 
of subtasks and resources is done by the 
single mechanism of the control program 
acting on the ready queue, 



28 



QCB KEY 

1 = not on Ready queue 

2 = on Ready queue and ready to 

be activated 

3 = on Ready queue but STCB is waiting 

for RECB and cannot be reactivated 
until RECB is available 



WAIT 
Subroutine 




> Figure 11. QTAM Nucleus 
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OUTLINE OF QTAM OPERATION 



The following description is intended to 
give a functional flow of messages through 
the QTAM operation. 

Processing of a QTAM message control 
task is activated as a result of interrupts 
(SVC, program control, disk, line end, and 
line Slo) that occur during the sending and 
receiving of a message. These interrupts 
result in the processing of one or more 
asynchronously operating QTAM subtasks or 
appendages. These subtasks communicate 
with one another and the message control 
task by means of the Qpost and Qwait func- 
tions (see section on Qwait and Qpost) . 
When a subtask has a resource element to be 
processed by another subtask, the element 
is posted to a queue representing that sub- 
task. This is done in the problem program 
by a Qpost supervisory call; the implemen- 
tation subtasks branch to post in IECKQQ01. 
Or an effective Qpost is issued by placing 
the resource element control block (RECB) 
in the £>uf f er on the ready queue and the 
address of the QCB in the first word of the 
RECB. When a subtask is ready to receive 
an element, the Qwait function is used. 
The subtask sequence is managed by queuing 
to the ready queue as discussed earlier 
under Queue Management. The interference 
of one line with another is handled by the 
queuing provided within the Qpost/Qwait 
functions. This description shews the log- 
ical sequence of events for a message 
without regard for other suotasks and 
interrupts that may occur and that do not 
effect the processing of the message. 
Therefore, when an element is posted to a 
queue, the subtask associated with that 
queue is activated immediately. Also for 
the sake of continuity and simplicity, that 
function of the QTAM nucleus that is 
entered as the result of Qposting and 
Qwaiting is not included in this discus- 
sion. The description takes the example of 
a multisegment message ending in an EOB-EOT 
from a nonswitched terminal. 

Figure 22 is a functional flowchart of 
the components of QTAM: message control 
task, opens and closes, message processing 
task, su£>tasks, and appendages. These com- 
ponents are separated by solid lines. Also 
on the flowchart, each subtask or module is 
separated oy broken lines . The labels on 
the flowchart, Figure 22, are the names of 
the routines. The functional blocks for 
the routine follow the label. When more 
detailed information is needed for a par- 
ticular functional block, refer to the 
detailed explanation of each routine. This 
detailed description also gives the 



sequence number of the logical flowchart 
for that routine. This detailed flowchart 
contains the labels that are in the listing 
of the routine. Note that some of the 
labels in Figure 2 2 are names of LPS delim- 
iter macros for that group of the LPS. The 
function of the expansion of these macros 
is also represented with a functional 
block. For the QTAM nucleus subroutines, 
see Figure 11 in the Logical Organization 
of QTAM section,. 

This description is divided into five 
sections: Initialization, Receiving, Send- 
ing, Message Processing, and Closedown. 
The flow of QTAM operation can be traced by 
following the steps in the description of 
the flowchart. Figure 22. 



INITIALIZATION 

The initial function of QTAM is 
initiated by the OPEN macros in the problem 
program. Upon discovering QTAM„ the system 
Open shifts control to the Open routines in 
the transient area. These routines obtain 
and initialize the control blocks (DEB, 
DCB, and LCB/IOB), load QTAM resident rou- 
tines into partition Q a and prepare the 
lines for transmission. 

Enter Message Control Task 

1. Open disk (see Figure 12) 

2 . Open checkpoint data set 

3. Open line groups (see Figure 13) 



Enter QTAM Open Routines 



• Open DASD 



Message queues 

1. Put the address of the terminal table 
in the CVT. 

2. Build DEBs. 

3. Load Implementation module and store 
the address in the terminal table. 

4. Load the Checkpoint/Restart module and 
store the address in the Implementa- 
tion module. 



Load 2 



Initialize the QCB whose address is in 
the terminal table with the address of 
the DASD destination STCB. 
Execute subtask to put address of 
IECKQQ01 in the Implementation module. 
Free main storage for secondary DSCBs. 
Replace offset to polling list with 
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CVT 



+ 156TERMTBL 




TERMTBL 



DASD/QCB 



+0 

+4 f IMP 

+8 JDASD 

Destination 



+8 \ DASD Dest. 
STCB if 
Process QCB 

+ 12 f DASD Dest. 
STCB 



Implementation routine 



+0 f LPS Q. 

LPS +12 | Active BRBQ. 
LPS +48 | Inactive BRB Q. 
LPS +288 | TCB 
LPS +304 f IGG019NH 
LPS +316 f IECKOPAW 
GETRET-8 f IECKQQ01 



QCB for 
Active BRB Q. 



+4 | IECKBUFF 




QCB for 
Inactive BRB Q. 



+4 f IECKRQ 



Figure 12. Blocks Initialized by Open Direct Access Device 



the polling characters and index 
bytes. 

5. Put buffers in the available buffer 
queue. 

6. Put buffer request blocks (BRB) in 
inactive BRB queue. 



• Open Checkpoint/Restart 



1. 

2. 



3. 



Calculate size of checkpoint records. 
For disposition NEW r write control 
record for first record of data set 
and two dummy checkpoint records. 
For disposition OLD, the control rec- 
ord is read from the disk . 
If not for a restart, the data set is 
formatted. If this is initialization 
for a restart, the checkpoint record 
is read (into the work area obtained 
by a GETMAIN),. The data previously 
recorded is restored. 



• Open Line Group Executors 



Load 1 



1. Build DEB. 

2. If the line group is a WTTA line 
group, load the WTTA Line Appendage 
module and establish linkages with the 
Implementation module. 

Load 2 

1. Build LCBs and IOBs. 

2. Build NOP, SAD, or Enable commands. 

Load 3 

1. Load BTAM Read/Write module and skele- 
ton CCWs. 

2. EXCP for each line. 
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Figure 13. Control Block after Open Line Groups 



The channel program for a SAD, Enable or 
NOP is executed to put the line in receive 
status. IOS gives control to the SIO Line 
Appendage routine, which requests that 
Error Recovery Procedures be given control. 
The Special Open and Checkpoint routine in 
the ERPs checks for SIO errors. If there 
was a normal Start I/O, return is made to 
IOS. The channel end/device end interrupt 
gives the Line End Appendage control. If 
IDLE has been specified, return is made to 
IOS. Otherwise, the LCB is posted to 
itself, i.e., the QCB and RECB are the same 
address. 



STATE for receiving (X'08). 
not end of polling list*. ) 
3. Branch to BRB-Ring routine. 



(Assume 



If it is the end of the polling list, the 
End of Poll Time Delay routine is entered. 
If a time interval is specified, the Send 
Scheduler is placed in the LCB that trans- 
mits messages during the interval (receive 
has priority over sending) or until all 
messages on the queue have been sent 
(receive and send have equal priority). 

• BRB-Ring routine 



The STCB for the Receive Scheduler is in 
the LCB if the line was opened for input. 
(If the line was opened for output, the 
STCB is for the Qdispatch subroutine.) The 
receive scheduler STCB contains the address 
of the Receive Scheduler routine, which 
gets control. 

Enter Receive Scheduler subtask 

• Receive Scheduler routine 

1. Test for end of polling list. 

2. If not end of polling list, set LCB- 



Build ring of buffer request blocks 

(BRB) to be used for dynamic buffer 

allocation. (BRBs are obtained from 

the inactive BRB queue. ) 

Make BRBs unaddressable. 

Post the first BRB to the active BRB 

queue with high priority . 



The number of BRBs in the ring is equal 
to the value specified in the BUFRQ 
operand. The address of the first BRB in 
the ring is stored in the LCB so the Acti- 
vate routine can gain access to it later. 
The first BRB is then posted with a priori- 
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ty of X'EC to cause immediate servicing of 
the request for a buffer. 



Enter Active BRB subtask 

• Active BRB routine (High priority) 

1. Test for available buffer (assume 
available). If the buffer is not 
available, the request is put into the 
active BRB chain of requests, 

2. Branch to Buffer BRB routine. 

• Buffer BRB routine 

1. Assign empty buffer for receiving; 
i.e., the LCB address is placed in the 
prefix of the buffer. 

2. Post empty buffer to LPS queue with 
priority of X'EOV. 

Return is to Open Load 3 as the result of 

the EXCP. 

Open Line Group Executors 
Load 3 



1. EXCP is issued for each line to cause 
each line to be made ready. 

Load 4 

1. Test for completion of I/O on each 
line. If I/O has not completed there 
is a 30-second delay. 

2. Return is to the message control 
program. 

For option 2 (MFT) and option 4 (MVT) a 
Start Initiator function should be em- 
ployed. This will load the message pro- 
cessing program into another partition or 
region. (See the section on initializing 
Message Processing Program.) The message 
processing program gains control when the 
message control task enters a WAIT state. 
Figure 14 illustrates the formation of the 
BRB ring and relation of the buffer to 
queues. 



RECEIVING 

Now there is an empty buffer for each 
line chained on the LPS queue and a ring of 



QCB for 

Ready 

Queue 



QCB for 
LPS Queue 



RECB 



empty buffer 



LCB 




LCB 




Figure 14. Buffer Ready to Receive Message from Line 
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BRBs for each line. The next function is 
to read the messages from the terminal into 
the buffers. To do this, the CCWs must be 
prepared for a particular terminal. 

• ENDREADY macro instruction 

1. Establish save registers. 

2. Issue an SVC Qpost to enter the check- 
point subtask. 

Enter Checkpoint Subtask 

• Checkpoint routine 

1. Set interval time via the Time Delay 
routine (if CPINTV is specified). 

2. Release main storage obtained in the 
Open Checkpoint (if restart) . 

3. Return to ENDREADY via the full STCB 
of the SVC Qpost* 

ENDREADY continued 

1. Branch to LPS Control routine. 

• LPS Control Routine 

1. Set up registers for Activate routine. 

2. issue an SVC Qwait for buffer in LPS 
queue (empty buffer posted in Buffer 
BRB routine) . 



3. Since buffer is available, set MSTATUS 
to 5 and branch to the Activate 
routine. 

• Activate routine 

1. Prepare CCW for entire buffer in first 
BRB (buffer address, operation code* 
count) . 

2. Build DECB for BTAM Read/Write 
routine. 

3. Branch to BTAM Read/Write routine. 

• BTAM Read/Write routine 

1. Prepare CCWs for terminal selection 
and reading first segment (address in 
DECB) . 

2. Issue EXCP supervisor call. 

• I OS branches to SIO Appendage 

• Line SIO Appendage routine (refer to 
Figure 11) 

1. Move TIC command from BRB to end of 
BTAM-prepared CCWs. 

2. Test for send request on line or end 
of polling list. 

3. Get poll characters for next terminal 
that can be polled. 

4. Change poll CCW to point to poll 



DECB 




LCB 




LCBCPA 
BTAM 
Channel 
Program 



Read 
Data 



PCI 




BRB 



t LCB 



Figure 15. Channel Program Prepared for First Buffer 
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characters found in terminal table. 
5. Set PCI flag in the BTAM Read CCW. 

• IOS issues Start I/O 

Return is to the LPS Control routine, 

• LPS Control routine 

1. issue a SVC Qwait for buffer in LPS 
queue. 

After a Start I/O is executed for each 
line, the LPS Control routine will find no 
buffers on the LPS queue. The message con- 
trol task will enter a wait state. Subse- 
quent I/O interrupts activate subtasks that 
cause buffers to be posted to the LPS 
queue, allowing the message control task to 
continue. 



PCI INTERRUPT (RECEIVING THE FIRST BUFFER) 

The PCI Appendage is entered as a result 
of a PCI flag set in the BTAM CCW by the 
Line SIO Appendage. This PCI interrupt is 
to allow buffers to be assigned to the BRBs 
in the chain. 

• PCI Appendage routine 

1. Post (effective) all BRBs except the 
first to the active BRB queue with 
high priority to obtain a buffer. 

Enter Active BRB subtask 

• Active BRB routine 

1. Obtain empty buffer from the available 
buffer queue (assume available) . 

2. Branch to Buffer BRB routine. 

• Buffer BRB routine 

1. Assign empty buffer for receiving. 

2. Set MSTATUS to 5 to signify empty 
buffer. 

3 . Post empty buffer to the LPS queue 
with priority of X'EO'. 

Enter Message Control task 

• LPS Control routine 

1. Set up register for Activate routine. 

2. Branch to Activate routine (empty 
buffer) . 

• Activate routine 

1. Prepare CCW for entire buffer in BRB. 

2. Clear low-order bits from TIC command 
in previous BRB to make it 
addressable. 

3. Branch to LPS Control routine. 



• LPS Control routine 

1. issue an SVC Qwait for buffer in LPS 
queue. 



PCI INTERRUPT (RECEIVING ALL BUFFERS EXCEPT 
FIRST) 

PCI Appendage is entered as a result of 
a PCI flag in the QTAM CCW in the BRB in 
the ring. The PCI interrupt is needed to 
return the BRB to the active BRB queue so 
it can be reassigned. This interrupt also 
indicates that the preceding buffer is full 
and ready for the LPS macro instructions as 
shown in Figure 16. 

• PCI Appendage routine 

1. Post (effective) preceding BRB to 
active BRB queue with low priority . 

2. Post (effective) all message-filled 
buffers to LPS queue (via interim LPS 
queue) . 



Enter Active BRB subtask 

• Active BRB routine (low priority) 

1. Chain BRB into active BRB element 
chain. 

The interim LPS subtask is entered to post 
the buffer to the LPS queue. This subtask 
provides a means of delaying the processing 
of all buffers until all BRBs are pro- 
cessed. Since a PCI interrupt may be 
missed due to extended CPU disable time, a 
buffer may be out of order. 



Enter Message Control task 

• LPS Control routine 

1. Set up registers for LPS. 

2. Branch to LPSTART (message-filled 
buffer) . 

• RCVSEG portion to LPS 

• RCVHDR portion of LPS (if header) 

• ENDRCV macro instruction 

1. Test for end of message, MSTATUS=X' 42' 
(assume not end of message). 

2. Branch to Cleanup routine. 

• Cleanup routine 

1. Post buffer to DASD process or 

destination queue specified by the 
ROUTE or DIRECT macro. 
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Figure 16. Effect of PCI Interrupt 



If posted to a process queue, the Get 
Scheduler routine is entered; if posted to 
a destination queue, the Send Scheduler 
routine is entered. After the Send Sched- 
uler has been entered, the STCB in the DASD 
destination queue changes to point to the 
DASD Destination routine. Therefore, con- 
trol would pass to the DASD Destination 
routine and exit to the Qdispatch subrou- 
tine to dispatch the next item on the ready 
queue. Both schedulers use the common code 
of the DASD destination routine, (If GET 
has been previously issued in message pro- 
cessing program, posting to the process 
queue is changed. This is covered later in 
the Message Processing section.) 



• DASD Destination routine 

1. Assign direct access location. 

2. Reserve and record location of direct 
access space for next message and/or 
segment. 

3. Post (effective) buffer to disk I/O 
queue. 

U . Return to scheduler. 

• Send Scheduler routine 

1. Set 'line trying to send" bit in LCB 
(LCBINCAM = X'Ol") (Assume line is not 
free so the Send Scheduler will wait 
for the line to be free.) 

2. Place Send Scheduler STCB in LCB's 
STCB chain. 



Destination 
LCB 



Send 

Scheduler 

STCB 



Destination 
QCB 



Receive 

Scheduler 

STCB 



DASD 

Destination 

STCB 



Message is queued for sending 

Message is queued for sending 

Enter Disk I/O subtask 

• Disk I/O routine (write) 

1. Convert relative record number to 
actual DASD address. 

2. Execute EXCP supervisor call. 
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Return to Message Control task 

• LPS Control routine 

1. Issue a SVC Qwait for buffer in LPS 

queue. At this point there is no buf- 
fer on the LPS queue so the message 
control program enters a wait state. 



• Disk End Appendage routine 

1. Place the disk I/O QCB (effective 
Qwait) on the ready queue to initiate 
another disk operation if one is 
stacked. (Assume none.) 

2. Post buffer to available buffer queue. 



TIMER INTERRUPT - CHECKPOINT INTERVAL 
Enter Cneckpoint/Restart routine 



1. Issue a GETMAIN for main storage 
required for checkpoint record. 

2. Transfer data to work area (informa- 
tion from terminal table, polling 
list, LCB, and QCB). 

3. Chain element to disk I/O queue below 
any other request for a Disk Write. 
(If no elements are in the queue and 

EXCP is issued for the disk 
operation. ) 

Note: The first buffer has now been read 
from the line and processed by the LPS 
macros. The operations now in progress, 
filling the second buffer from the line and 
writing the first buffer to the disk, cause 
the following possible interrupts. 

1. Channel end/device end from the disk 
indicating the Disk Write operation is 
complete. Control passes to the Disk 
End Appendage routine. 

2. PCI indicating another full buffer has 
been received. 

3. Channel end/device end from the line 
indicating an EOB was received from 
the terminal. Control passes to the 
Line End Appendage routine. 

4. Channel end/device end/unit exception 
from the line indicating an EOT was 
received from the line. Control 
passes to the Line End Appendage. 

In this example, it is assumed that the 
channel end/device end from the disk opera- 
tion occurs first and the others follow in 
order given. 



Enter Available Buffer subtask 

• Available Buffer routine 

1. Find and remove BRB (from PCI inter- 
rupt) from active BRB element chain,. 

2. Branch to Buffer BRB routine. 

• Buffer BRB routine 

1. Assign empty buffer for receiving. 

2. Post empty buffer to LPS queue. 

Now that a buffer is available, it can 
be assigned to a BRB and used to continue 
reading the message. Note that the basic 
structure of the channel program has been 
set,, therefore all that is needed is to 
complete the CCW. Figure 17 shows the 
normal path of a buffer. Actually the buf- 
fer is chained to the ready queue; however,, 
the diagram shows the logical association 
between the buffer and function to be 
performed. 

Enter Message Control task 

• LPS Control routine 

1. Set up registers for Activate routine. 

2. Branch to Activate routine (empty 
buffer) . 

• Activate routine 

1. Prepare CCW for entire buffer in BRB. 

2. Clear low-order bit from TIC command 
in previous BRB. 

• Return is to LPS Control routine 

1. Issue a SVC Qwait for buffer in LPS 
queue. 



DISK INTERRUPT— CHECKPOINT WRITE 
Enter Checkpoint/Restart Routine 



DISK INTERRUPT (RECEIVING) 

The Disk End Appendage is entered as the 
result of a disk operation. This interrupt 
is used to free the message-f illed Q buffer 
and to initiate for another disk or read 
operation. 



1. If there are errors, a WTO macro is 
issued for a message. (Assume no 
errors.) 

2. If the complete record has not been 
written, another disk operation is 
started. 
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Figure 17. Path of a Buffer for Receiving 



3. When complete record is written, the 
control record is written. 

4. FRdEMAIN is issued to free the check- 
point record. 

5. Timer is reset. 

6. Dispatch next item on queue. 



LINE END INTERRUPT (RECEIVE AN EOB) 

The Line End Appendage routine is 
entered as a result of an EOB indication. 
The CCW must be set up to read the rest of 
the buffer. 

• Line End Appendage routine 

1. Check for errors. 

2. Post message-filled buffer to LPS 
queue. 



Enter Message Control task 
• LPS Control routine 



1. Set up registers for LPS. 

2. Branch to LPSTART. 

• RCVSEG portion of LPS 



• RCVHDR portion of LPS (if header) 



• ENDRCV macro instruction 

1. Test for end of message 
(MSTATUS=X" 42') . 

• EOB or EOBLC macro instruction 

1. Branch to EOB or EOBLC routine. 

• EOB or EOBLC routine 

1. Set up "first buffer" and "read con- 
tinue" flags for Activate routine. 

2. Branch to Activate routine,. 

• LPS macro instructions for error checking 
of received messages. 

• Activate routine 

1. Prepare CCW for entire buffer in BRB. 

2. Prepare DECB for BTAM Read/Write 
routine. 

3. Branch to BTAM Read/Write routine. 

• BTAM Read/Write routine 

1. Prepare CCWs to respond to EOB and 
read portion of buffer that follows 
EOB. 

2. Execute EXCP supervisor call. 



38 



• IOS branches to Line SIO Appendage 

• Line SIO Appendage routine 

1. Move TIC command from BRB to end of 
BT AM- prepared CCWs. 

• IOS issues Start I/O 

• LPS Control routine 

1. Issue an SVC Qwait for buffer in LPS 
queue • 



LINE END INTERRUPT (RECEIVE WRU SIGNAL ON 
WTTA LINE) 

The WTTA Line Appendage routine is 
entered as a result of a WRU indication. 
If EOM is different from WRU, the CCW must 
be set up to read the rest of the buffer. 

• WTTA Line Appendage routine 

1. Check for errors. 

2. If this is the first buffer, the 
requested identification exchange is 
performed. On completion, restart the 
Read CCW. If this is not the first 
buffer, post it to the LPS queue, and 
set the "WRU" flag in the LCB. 



Enter Message Control Task 



• LPS Control routine 

• RCVSEG portion of LPS 

• ENDRCV macro instruction 

1. Test for end of message 
(MSTATUS=X , t4 2 l ) . 

2. Branch to EOB routine. 

• EOB routine 

1. Set up "first buffer" and "read con- 
tinue" flags for Activate routine. 

2. Branch to Activate routine. 

• Activate routine 

1. Prepare CCW for entire buffer in BRB, 

2. Prepare DECB for BTAM Read/Write 
routine. 

3. Branch to BTAM Read/Write routine. 

• BTAM Read/Write routine 

1. Prepare CCW for ID Exchange and read 
portion of buffer including WRU. 

2. Execute EXCP supervisor call. 

• IOS branches to line SIO Appendage. 



• Line SIO Appendage routine 

1. Move TIC command from BRB to end of 
BTAM -prepared CCWs. 

•IOS issues Start I/O. 

• LPS Control routine 

1. Issue an SVC Qwait for buffer in LPS 
queue . 



LINE END INTERRUPT (RECEIVE EOT — RECEIVE 
[EOT/EOM ON WTTA LINES) 

The Line End Appendage is entered as a 
result of an EOT indication. 

• Line End Appendage routine 

1. Check for errors. 

2. Post buffer to LPS queue. 



Enter Message Control Task 

• LPS Control routine 

1. Set up registers for LPS. 

2. Branch to LPSTART. 

• RCVSEG portion of LPS 

• RCVHDR portion of LPS (if header) 

• ENDRCV portion of LPS 

• EOB or EOBLC macro instruction 

1. Branch to EOB or EOBLC routine. 

• EOB or EOBLC routine 

1. Test for EOT. 

2. Return to LPS macro instruction. 

• LPS macro instructions to perform error 
checking 

• POSTRCV macro instruction 

1. Branch to Cleanup routine. 

• Cleanup routine 

1. issue a SVC Qpost to post buffer to 
DASD process or destination queue- 
Note: Enter DASD Destination routine and 
disk I/O subtask as already explained under 
the PCI Interrupt section (receiving all 
buffers except first) . Upon returning to 
the Cleanup routine the following functions 
have been performed: 
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1. Allocated disk location for text 
segment. 



2. Placed necessary linkages in text 
prefix. 

3. Initiated Disk Write operation for 
last buffer. 



Return to Cleanup routine 

• Cleanup routine (continued) 

1. Issue an SVC Qpost to post any 
assigned but unused buffers to the 
available buffer queue. 

2. Branch to Free BRB routine. 

• Free BRB routine 

1. Issue an SVC Qpost to post BRBs to 
inactive BRB queue. (If BRB is in the 
active BRB queue it is not posted. A 
flag is set so that when this buffer 
is available it is not assigned and 
the BRB is posted to the inactive BRB 
queue. ) 

2. Issue an SVC Qpost to post the LCB to 
itself to free the line. 

The LCB contains the STCB for either the 
Receive or Send Scheduler depending upon 
the priority of sending and receiving. The 
following priorities may be specified for 
nonswitched lines. 



1. Receive over send: Messages are sent 
only during the polling interval 
delay. If no polling delay is speci- 
fied, no messages are sent. 

2. Receive equal to send: For WTTA 
lines, messages are sent if an EOT 
signal has been received. For all 
other lines , messages are sent at the 
end of the polling list. All messages 
queued for that line are sent before 
polling is reinitiated. 

3. Send over receive: Messages are sent 
at EOT time, at the end of polling 
list, and after a negative response to 
poll. 

The STCB contains the address of the 
scheduler subtask in the link field. When 
the LCB is posted to itself and is subse- 
quently dispatched , the STCB is activated 
so that the Send Scheduler routine (assume 
line is free to send) is entered. 



SENDING 

Sending is initiated when a line is 
free, and a full message has been received. 
The message must be read into buffers and 
then the header rewritten on the disk with 
the "message sent" flag set. (See Figure 
18.) The buffers are then routed through 
the send LPS. 

Enter Send Scheduler subtask 

• Send Scheduler routine 



QCB 



Dummy 




RECB 



RECB 



Buffer 




BRB 



Figure 18. Ready Queue at Sending Time 
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1. Test for full message in queue. 

2. Branch to BRB-Ring routine. 

• BRB-Ring routine 

1. Build ring of BRBs used for dynamic 
buffer allocation. (BRBs are obtained 
from the inactive BRB queue. ) 

2. Post first BRB to disk I/O queue. 

Return to Message Control task 

• LPS Control routine 

1. Issue an SVC Qwait for buffer in LPS 
queue. 

Enter Disk I/O subtask 

• Disk I/O routine (read) 

1. Assign buffer from available buffer 
queue for Disk Read. (If no buffer 
avail able , BRB is posted to active BRB 
queue . ) 

2 . Put buffer on disk I/O queue before 
BRB (BRB is a request to read buffer.) 

3. Convert relative record number to 
actual DASD address. 

4. Execute EXCP supervisor call. 



DISK INTERRUPT (SENDING - HEADER) 

The Disk End Appendage is entered as a 
result of a disk operation. This interrupt 
is used to initiate the writing of the buf- 
fer bacK on this disk. 

• Disk iind Appendage routine (read) 

1. Assign sequence number and set "mes- 
sage sent" flag in prefix. 

2. Return to IOS to rewrite buffer on 
disk. 



DISK INTERRUPT (SENDING - ALL BUFFERS) 

The Disk End Appendage is entered as a 
result of a disk operation. Note that the 
buffer containing the header enters the 
Disk End Appendage twice (read, rewrite). 
Now that the header has been written back 
on the disk the message-filled buffer can 
be sent through the send LPS. This inter- 
rupt also provides the opportunity to 
initiate the reading of the next buffer 
from the disk. 

• Disk End Appendage routine 

1. Post (effective) buffer to LPS queue. 

2. Set up next BRB to read next segment 
of message. 

3. Turn off the "send" bit so that the 
buffer can go through send LPS. 



4. Post next BRB to disk I/O queue if 
available buffer for read. 



Enter Disk I/O subtask 

• Disk I/O routine (read) 

1. Assign buffer from available buffer 
queue for read. (If no buffer is 
available, BRB is posted to active BRB 
queue.) 

2. Put buffer on disk I/O queue ahead of 
BRB (BRB is a request to read buffer) . 

3. Convert relative record number to 
actual DASD address,. 

4. Execute EXCP supervisor call. Since 
this routine was entered through an 
appendage , an EXCP may not be able to 
be executed. If the disk is idle, a 
SIO element (STARTIO) is posted to the 
LPS queue,, The LPS Control routine 
would then issue the EXCP. 

Enter Message Control task 

• LPS Control routine 

1. Set up registers for LPS. 

2. Branch to LPSTART. 

• SENDHDR macro instruction 

1. Test for complete "message sent," 
"serviced" bit MSTATUS=X , 10 S . (Assume 
complete message not sent). 

2. Branch to header portion of LPS,. 

• SENDHDR portion of LPS (if header) 

• ENDSEND macro instruction 

1. Branch to Activate routine,. 

• Activate routine 

1. Prepare CCW for entire buffer in BRB. 

2. Indicate "message sent" flag in 
prefix. 

3. Prepare DECB for BTAM Read/Write rou- 
tine (first buffer )• 

For all buffers except first: 

4. Clear low-order bits from TIC command 
in previous BRB. 

5. Set "PCI" flag in CCW. 

6. Branch back to LPS Control routine. 

• BTAM Read/Write routine 

1. Prepare CCWs for terminal selection 
and writing first segment. 

2. Execute EXCP supervisor call. 

3. IOS branches to Line SIO Appendage 

• Line SIO Appendage routine 
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1. Move TIC command from BRB to end of 
BTAM- prepared CCWs. 

2. 103 issues Start I/O 

The sequence of Disk End Appendage, disk 
I/O subtask, and message control task is 
repeated for each buffer. For the last 
buffer the BRB is not posted to the disk 
I/O queue, but the disk I/O QCB is chained 
to the ready queue to request another 
operation. 

Return to LPS Control routine 

• LPS Control routine 

1. Issue an SVC Qwait for buffer in LPS 
queue . 



PCI INTERRUPT (SENDING) 

The PCI Appendage is entered as a result 
of a "PCI" flag set in the CCW for every 
buffer except the first. 

• PCI Appendage routine 

1. Post (effective) preceding BRB to 
active BRB queue with low priority . 

2. Post (effective) buffer to available 
buffer queue. 

Enter Active BRB subtask 

• Active BRB routine (low priority) 

1. Chain BRB into active BRB element 
chain. 

Enter Available Buffer subtask 

• Available Buffer routine 

1. Find and remove BRB (from PCI inter- 
rupt) from active BRB element chain. 

2. Test if valid or idle BRB. When there 
is no more to read, the buffer is 
placed in the available buffer chain 
and the next item is dispatched. 

3. Branch to Buffer BRB routine. 

• Buffer BRB routine 

1. Reserve buffer for Disk Read. 

2. Post BRB to disk I/O queue. 

Enter Disk I/O subtask 

• Disk 1/0 routine (read) 

1 . Assign buffer from available buffer 
queue for Disk Read. 

2. Put buffer on disk I/O queue ahead of 
BRB (BRB is a request to read buffer). 

3. Convert relative record number to 
actual DASD address. 

4. Post disk request element to LPS 



queue, if disk is idle (assume true 
for this case) . Execute EXCP super- 
visor call, if disk is not idle. The 
Start I/O element is the CCWs created 
by Disk I/O routine for reading the 
next segment. 




Start I/O Element on Ready Queue 



Enter Message Control task 

• LPS Control routine 

1. issue EXCP supervisor call for disk. 

Disk End Appendage is same as explained 
under Sending - All Buffers. 

LINE END INTERRUPT (SENDING - EOB) 

The Line End Appendage is entered as a 
result of an EOB indication* 

• Line End Appendage routine 

1. Check for errors. 

2. Return to I OS to read EOB. 



LINE END INTERRUPT (SENDING - RESPONSE TO 
EOB) 

The Line End Appendage is entered as a 
result of a response to an EOB. 

• Line End Appendage routine 

1. Check for errors. 

2. Post buffer to LPS queue. 
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Enter Message Control task 

• LPS Control routine 

1. Set up registers for LPS. 

2. Branch to LPS, 

• SENDHDR macro instruction 

1. Test for complete message sent. 

2. Branch to the macro instructions fol- 
lowing ENDSEND, as a complete message 
has been sent (EOB) . 

• EOB or EOBLC macro instruction 

1. Branch to EOB or EOBLC routines. 

• EOB or EOBLC routine 



LINE END INTERRUPT (SEND EOB/EOT) 

The Line End Appendage is entered as a 
result of an EOT indication* Now the buf- 
fer is ready for the send LPS. Also the 
EOT indicates that all BRBs and the line 
can be freed. 

• Line End Appendage routine 

1. Check for errors. 

2. Post buffer to LPS queue. 

Enter Message Control task 

• LPS Control routine 

1. Set up registers for LPS. 

2. Branch to LPSTART. 



1. Set up "first buffer" and "write con- 
tinue" flags for Activate routine. 

2. Branch to Activate routine. 

• Activate routine 

1. Prepare CCW for entire buffer in BRB. 

2. Prepare DECB for Read/Write routine. 

• Read/Write routine 

1. Prepare CCW to write portion of buffer 
that follows EOB. 

2. Execute EXCP supervisor call. 

• IOS branches to Line SIO Appendage 

• Line SIO Appendage routine 

1. Move TIC command from BRB to end of 
prepared CCW. 

• IOS issues Start I/O 
Return to LPS Control routine 

• LPS Control routine 

1. Issue an SVC Owait for buffer in LPS 
queue. 



Available 

Buffer 

Queue 



Disk 

I/O Queue 



buffer 
returned 



sent through LPS 



LPS 
Queue 



Path of buffer for sending 



Path of Buffer for Sending 



• SENDHDR macro instruction 

1. Test for complete message sent 
(MSTATUS=X' 10 1 ). 

2. Branch to the macro instructions fol- 
lowing ENDSEND, as a complete message 
has been sent (EOB) . 

• EOB or EOBLC macro instruction 

1. Branch to EOB or EOBLC routine. 

• EOB or EOBLC routine 

1. Test for EOT following EOB. 
2r Return to LPS since line interrupt is 
for EOT. 

• LPS macro instruction for error checking 

• POSTSEND macro instruction 

1. Branch to Cleanup routine. 

• Cleanup routine 

1. Issue an SVC Qpost to post the buffer 
to available buffer queue. 

2. Issue an SVC Qpost to post BRBs to 
inactive BRB queue. (If BRB is in the 
active BRB queue, it is not posted. A 
flag is set so that when a buffer is 
available it is not assigned and the 
BRB is posted to the inactive BRB 
queue . ) 

3. Issue an SVC Qpost to post the LCB to 
itself. 

Enter Send Scheduler subtask 

• Send Scheduler routine 

1. Test for full message in queue. 

2. Since no messages are now in the 
queue, the Send Scheduler removes the 
STCB from the line and places it back 
in the destination line QCB's STCB 
chain. 
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The line (LCB) would now be free to 
execute the next STCB on its chain, which 
may be the Receive Scheduler or another 
Send Scheduler for another terminal on its 
line. 

Enter Receive Scheduler (If send and 
receive have equal priority) 

Cycle now complete. 

MESSAGE PROCESSING 

The procedure for routing buffers to a 
message processing program before a GET has 
been issued is similar to the description 
in the Receiving section. The only dif- 
ference is that the messages are posted to 
the DASD process queue and the GET Schedul- 
er is entered f which branches to the DASD 
destination routine. Prior to the first 
GET the incoming buffers accumulate on the 
DASD process queue. 

Enter Message Processing task 

1. Open process queues. 

• Open Process Queue routine 

1 Build DEB (1U4 bytes). 

2. Build chain of message processing 
DEBS. 

3. Initialize BRB and QCB in DEB. 

4. Load Get and/or Put modules. 



DEB MS Process 



DASD Process QCB 
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f IECK STOP 


+ 40 




+ 44 


f QPRIRTY 




subtask 


+ 48 




+ 52 


'FE' (priority) 
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f GET Scheduler 
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Return to Message Processing task 

The first GET is to initialize the pro- 
cess of reading the buffers from the disk. 
No buffers could be queued to the MS pro- 
cess queue until this time because the mes- 
sage processing queue may not have been 
opened. 

1, Issue GET. 

• Get routine 

1. Test for message in queue (if none, 
exit to EODAD) . 

2. Issue an SVC Qpost to post the preced- 
ing buffer to return buffer queue 
(first time dummy buffer in BRB of 
process DEB is used) . 

Enter Return Buffer subtask 

• Return Buffer routine 

1. Make BRB eligible for reading into MS 
process queue. 

2. Branch to Get Scheduler routine. 

• Get Scheduler routine (special entry) 

1. Get address of DASD process queue. 

2. Test to see if BRB is eligible for a 
read MSTIC=3. (assume it is eligible) 

3. Set the relative record number of the 
header segment on the DASD process 
queue in BRB. 

4. Indicate disk operation for buffer in 
BRB (MSTATUS=9). 

5. Post BRB to disk I/O queue for read. 

Enter Disk I/O subtask (read) 

• Disk I/O routine 

1. Test for buffer available (assume 
available) 

2. Assign buffer from available buffer 
queue for Disk Read. 

3. Put buffer on disk I/O queue ahead of 
BRB. (BRB is requested to read 
buffer. ) 

4. Convert relative record number to 
actual DASD address. 

5. Execute EXCP supervisor call. 
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QCB 
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Process OPEN 



Return to Get routine 

1. Issue an SVC Qwait for a buffer. 

If the MS process queue had a message, 
this wait would be satisfied. However to 
illustrate a complete cycle,, the disk end 
procedure follows. The disk operation 
replenishes the MS process queue depleted 
by a GET (if there is a buffer in the DASD 
process queue). Therefore the disk I/O 
operation overlaps with the processing in 
the user's processing program. 
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DISK INTERRUPT (FIRST BUFFER - HEADER) 

The Disk End Appendage is entered as a 
result of a disk operation. 



Disk End Appendage routine (read) 

1. Indicate message sent and assign 
sequence number. 

2. Return to IOS indicating that Start 
I/O is for a rewrite to write the mes- 
sage JDack on disk. 



DISK INTERRUPT (REWRITE) 

The Disk End Appendage is entered as a 
result of a disk operation. 



• Disk £nd Appendage routine (BRB is still 
a request to read a buffer). 



5. 



Remove BRB and buffer from disk I/O 

queue. 

Put buffer in MS process queue. 

Test for more space in MS process 

queue. (Assume more space.) 

Set up for new Disk Read to fill MS 

process queue. 

Post BRB to disk I/O queue to cause 

the reading of the next segment. 



The wait is now satisfied for a buffer 
in the MS process queue. 

Return is to the Get routine 
• Get routine (continued) 

1. Move buffer to work area. 

2. Return is made to the message process- 
ing program. 

For Get Message and Segment if the buf- 
fer is empty or it is not end of message, 
another buffer is requested. 

Enter Message Processing task 

1. Execute modifying and examining macro 
instructions. 

After the first GET has been issued, 
then the MS process queue can continue to 
be filled. If a message is posted to the 
process queue after the first GET and there 
is space in the MS process queue, the buf- 
fer is put in the MS process queue without 
actually doing the Disk Read. (See Figure 
19.) Tnis procedure is initiated when the 
Cleanup routine posts a buffer to the DASD 
process queue as follows. 



Enter the Get Scheduler subtask (activated 
by posting the buffer to the DASD process 
gueue) 

• DASD Destination routine 

1. Assign direct access location. 

2. Reserve and record location of direct 
access space for next message. 

3. Post (effective) buffer to disk I/O 
queue for write. 

• Get Scheduler routine 

1. Test for EXPEDITE (assume not 
EXPEDITE) . 

If EXPEDITE, the message is not put on 
the disk but is put directly into the 
MS process queue. 

2. Test for space in MS process queue. 
(Assume space.) 

3. Test for disk address in BRB. (Assume 
disk address is the same as for write 
in DASD destination routine. This BRB 
is in the active BRB queue as a result 
of the post to the disk I/O queue by 
Disk End Appendage.) 

4. Post BRB to disk I/O queue for read. 
(Second element on disk I/O queue, 
BRB, is now a request to read first 
element.) 

Enter Disk I/O subtask 

• Disk I/O routine (write) 

1. Convert relative record number to 
actual DASD address. 

2. Execute EXCP supervisor call. 



DISK INTERRUPT 

The Disk End Appendage is entered as a 
result of a disk operation,. 

• Disk End Appendage routine (write) 

1. Remove BRB and buffer from disk I/O 
queue. 

2. Put buffer in MS process queue. 

3. Test for more space in MS process 
queue. (Assume space.) 

4. Set up for disk read,. 

5. Post BRB to disk I/O queue. (Continue 
to fill up MS process queue.) 

Enter Message Processing task (when Message 
Control task enters a WAIT state) 

1. Issue GET (not first time) 

• Get routine 
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DASD Process Queue 
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^''chained to MS G 


ueue 
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Before first GET or MS Process Queue filled. 
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MS Queue 



After first GET, MS Queue not filled 
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work area 



Buffer returned on next GET. 



Figure 19. Queuing in Message Processing 



1. Test for message in DASD process 
queue, 

2. Post preceding buffer to return buffer 
queue. 



Enter Return Buffer subtask 

• Return Buffer routine (not first time) 

1. Make BRB eligible for Disk Read. 

2. Post (effective) buffer to available 
buffer queue. 

3. Branch to Get Scheduler routine. 

Note : Get Scheduler, Disk I/O, Disk End 
Appendage, and Message Processing are the 



same as in posting buffer to process queue 
after first GET. 



Enter Message Processing task 
1. Issue PUT macro instruction. 

• Put routine 



1. Set high priority in BRB in destina- 
tion queue in DEB. 

2. Issue an SVC Qpost to post BRB to 
active BRB queue. 
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Figure 20, Ready Queue to Obtain Message 



Enter Active BRB subtask 



• Active BRB routine 



Assign empty buffer froir available 

buffer queue. 

Branch to buffer BRB routine. 



• Buffer BRB routine 

1. Make BRB into QCB for MS destination 
queue. 

2. Exit to Put routine 

• Return to Put routine (special entry in 
supervisory mode) 

1. Move message from work area to buffer. 

2. Post ouffer to MS destination queue. 

The STCB for the MS destination queue is 
QPRIORTY f which inserts the buffer in the 
queue and dispatches the next item on the 
ready queue. In Figure 21 the MS destina- 
tion queue will be removed and the full 
STCB will be dispatched to return to the 
Put routine. 



• Return to Put routine 

1. Issue an SVC Qwait for new filled 
buffer. 

2. Issue an SVC Qpost to post the buffer 
to DASD destination QCB. 

Note : The results of the post to the DASD 
destination queue are as explained in the 
section on Receiving. The message is now 
sent out to the terminal as explained in 
the section on Sending. 



CLOSEDOWN 

Enter Message Processing Task 

1. Issue CLOSEMC macro instruction. 
• Close routine 

1. Turn off master receive switch by the 
move data subtask. This is to prevent 
further receive operations. 

2. Issue a STOPLN macro for all active 
lines. 
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• Queue routine (in Line Change Routine) 



QCB 



for Ready Queue 




Buffer 



full STCB 



Figure 21, 
Message 



Ready Queue After Obtaining 



• Stop Line routine 

1. Issue a Halt I/O for all dial lines or 
2740 terminals (basic or with check- 
ing) that are not in active 
transmission . 

2. Issue an SVC Qwait for the LCB. This 
wait can be satisfied by 

a. End of poll list, 

b. Negative response with "send" flag 
for the LCB, 

c. Completion of current operation, 
d* Completion of interval delay, 

which will indicate that the line 
is free. 

3. Return to Close routine, 

• Close routine 

1. Issue STARTLN macro instruction. 

• Start Line routine 

1. Set up SAD/Enable or NOP command. 

2. Issue a SVC Qpost to post LCB to queue 
QCB to get in supervisor mode. 



1. EXCP 

2. Dispatch next item on queue. This 
should be the full STCB to return to 
the Start Line routine, which returns 
to the Close routine. 

This starts all lines for output only. 
The master receive switch keeps the input 
lines inactive. The Close routine returns 
to the message processing task. 

Return to Message Processing task 

1. Issue CLOSE process queue macro 
instruction* 

• Enter Close Process Queue routine 

1. Remove DEB for each DCB from DEB chain 
and TCB chain. 

2. Test for general closedown. (Assume 
general closedown. If not, return.) 

3. Issue a STOPLN macro instruction. 

• Stop Line routine 



1. 



2. 
3. 



Issue a Halt I/O for all dial lines or 
2740 terminals (basic or with check- 
ing) that are not in active 
transmiss ion. 

Issue an SVC Qwait for the LCB. 
Return to Close Process Queue routine. 
(All process queues have been closed.) 



• Return to Close Process Queue routine 



4. 



Post request for message control close 
to LPS queue. 



Return to Message Control Task 



• LPS Control routine 

1. Test for request for closedown. 

2. Branch to CLOSE macro instructions. 

• Close line group routine 

1. Free main storage for LCB. 

2. Clear DCB pointers. 

3. Purge request for I/O on each line. 

4. Disable all dial lines. 

• Close DASD routine 

1. Clear terminal table from the communi- 
cations vector table. 

2. Post as complete the event control 
block to return to the message pro- 
cessing task. 

The message processing task is now com- 
plete and the system does the deallocation 
to terminate the job. 
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Figure 22. Functional Flowchart of QTAM Components (Part 1 of 2) 
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BTAM OPERATION WITHIN QTAM 



QTAM uses the services of BTAM to per- 
form the read and write operations for the 
system. The BTAM module IGG019MA is the 
Read/Write routine that QTAM uses under the 
name IGG019NZ. 

QTAM uses BTAM's Device I/O modules for 
every device type. However , QTAM does not 
use BTAM's appendages or other routines. 
QTAM appendages and routines are located in 
module IGG019NG. 

QTAM uses BTAM's channel programs for 
the operations used by BTAM. The following 
channel programs are provided for each com- 
munications line type, where applicable: 

• Read Initial 

• Write Initial 

• Read Continue 

• Write Contiune 

• Read Repeat 

• Write Conversational 

• Write at Line Address 

• Write i^rase 

• Write Negative Acknowledgment 

The BRB-Ring routine, LPS Control, Acti- 
vate, Line SIO Appendage, and Line End 
Appendage routines modify BTAM's channel 
programs for QTAM use. 

The data event control block reguired by 
BTAM is constructed in the Activate routine 
in the Implementation module, and is 
labeled LINEDECB (see Appendix B: System 
Control Blocks) . 

The following sections will explain BTAM 
Read/Write routine, BTAM control informa- 
tion for channel program generation, and 
BTAM channel programs. 



BTAM READ/WRITE ROUTINE (IGG019NZ) 

The BTAM Read/Write routine is entered 
by a branch and link from the Activate rou- 
tine in IGG019NG and acts as an interme- 
diary between the Activate routine and the 
input/output supervisor. Read/Write per- 
forms tne following functions. 

• Gets the IOB of the LCB from a pointer 
in the DCB specified by the Activate 
routine. 

• Obtains the Device I/O module, com- 
putes, if necessary, the area address 
and length, and loops on the CCW count 
until all CCWs have been moved and com- 



pleted in the channel program area of 
the LCB for the line. 

• Issues an execute channel program SVC, 
passing control to the I/O supervisor 
with the address of the IOB as a param- 
eter. The I/O supervisor checks access 
method and, upon discovering QTAM, 
gives control to QTAM' s SIO Appendage 
routine. 

The CCWs in the Device I/O modules are 
complete except for the area address and 
count fields. An index in the second and 
seventh bytes of the CCW determines which 
subroutine is used to complete either the 
area address or the count. If an offset to 
the normal address is required, this value 
already exists in the CCW. The subroutines 
for computing the area address are: 



INDEX VAI/JE 

00 TESTLNG - If there is no area address 
index byte then Read/Write go directly 
to compute the length. 

04 DATAREA - The fourth byte of the CCW 
is added to the address of the area. 
The area address is the DECAREA field 
in the DCB for this Read or Write 
operation- This subroutine computes 
the area address for a Read or Write 
Data or Read Response CCW. If there 
is a Read Response CCW, then it will 
read into the first two bytes of the 
area, and the Read Data CCW that fol- 
lows will read into the original area 
address plus two. 

08 RESPAREA - The address of the response 
field in the DCB (DECRESPN) is loaded 
into the area field of the CCW to read 
the response to addressing or to text. 

0C SPECCHAR - The address of the control 
characters are provided for the CCW. 
The control characters are defined as 
constants at the end of the Device I/O 
module. The count is not computed. 

10 LIST - The number of dial characters 
is moved to the count field. The 
address of the dial digits is set in 
the CCW. This sets up the field to 
dial a terminal on a switch line. 

14 PALIST - The offset in the CCW is 

picked up to load the polling or ad- 
dressing pointer, if necessary. The 
count of characters is added to the 
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terminal address. The subroutine 
finds the polling or addressing entry 
and places the address in the CCW. 



18 TWXIDENT - The number of dial charac- 
ters plus one is added to the list 
address and then the number of ID 
characters is moved into the count 
field. The address of the ID charac- 
ters is placed in the area address 
field of the CCW. 

1C PA1050D - The address of the address- 
ing characters in the 1050 Dial list 
is placed in the area address field. 

20 DISABLE - The entry is checked to see 
if this is an Answer list. If it is 
an Answer list, then an Enable CCW is 
set up instead of a Dial in the chan- 
nel program area. 

24 AUTO POLL - This subroutine builds the 
additional CCWs in the channel program 
in the Device I/O module. The second 
and third CCWs (poll and TIC) are 
copied into the channel program as the 
fifth and sixth CCWs. A TIC CCW, 
defined in this suoroutine, is moved 
into the channel program as the fourth 
CCW. 

The data address, obtained from the 
IOBPOLPT field of the IOB, and the 
count are set in the first poll CCW. 
The data address, address of first 
polling character, and the count are 
set in the second poll CCW. 

If there was a permanent error, the 
first poll CCW is adjusted to start 
polling at the next terminal. If at 
the end of the polling list, the first 
poll CCW is made the same as the 
second CCW. 



2C WTTATIC - This subroutine builds the 
transfer address of the TIC CCW. If 
ID exchange is requested at the begin- 
ning of an outgoing message, this will 
be the address of the third CCW; if 
not, this will be the address of the 
sixth CCW,. 

30 WTTADID - A number of characters equal 
to the terminal ID minus one is moved 
into the count field of the CCW,. The 
address of the area reserved by the 
TERM macro instruction is place in the 
area address field of the CCW. 

34 WTTATID - A number of characters equal 
to the computer ID is moved into the 
count field of the CCW, and the 
address of the computer ID is placed 
in the area address field of the CCW. 
If WRU=YES has been coded in the DCB, 
the CC flag of the CCW is set on. 

The subroutines for computing the count 
field, if not already computed, are: 

00 TESTLAST - There is no length to com- 
pute; the number of CCWs is checked to 
see if they have finished building the 
channel program,. 

04 DATALNG - The length is picked up from 
the area length in the DECB for Read 
or Write Data CCWs. 



BTAM CONTROL INFORMATION FOR CHANNEL 
PROGRAM GENERATION 



This section describes the form and con- 
tent of the channel command word (CCW) of 
the channel program generated by the Read/ 
Write routine. 



Channel Command Word 



28 



If there is a message to be sent, then 
the STCB in the link field of the LCB 
requires a channel program that allows 
a message to be sent to the end of a 
polling list. For this case, the TIC 
after the first and second poll CCW 
are changed to NOP to prevent con- 
tinuous polling. 

If the line is in conversational mode, 
the "converse mode" flag is turned 
off. Also the first poll CCW is 
changed to NOP to cause an immediate 
interrupt. 

WTTASNS - This subroutine builds the 
Sense CCW of the Read Initial channel 
program for WTTA. The TP Op Code 
address of the CCW is placed in the 
area address field of the CCW. The 
EOT flag in the LCB is reset. 



The format of the BTAM channel command 
word is as follows: 



Command Code 


Data Address 


78 




31 


Flags 


000 


TP Op Code 


Count 



32 



36 37 39 40 



47 48 



63 



The CCW used within BTAM is identical to 
that used throughout System/360 except for 
the addition of an operation code (TP Op 
Code) in the sixth byte (bits 4 through 
47) . This byte, which is unused in other 
environments, has no effect upon channel 
operations. Bit in the byte is set to 
one in the last CCW created dynamically for 
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a channel program. Bit 1 is reserved for 
use with dynamic buffering. The use of 
bits 2 through 7 is described in the sec- 
tion on Channel Programs. 



DEVICE I/O MODULE ; A Device I/O module 
contains the control information for the 
generation of channel programs for a given 
device type. Every device type (e.g., IBM 
1050, IBM 1030, 115A, 83B3, etc.) speci- 
fied for a data set opened in a problem 
program is represented by a Device I/O 
module in main storage. 

The Device I/O module has four parts as 
shown in Figure 23: 

• A 16-byte table of offsets. 

• The offset to the channel command 
words. 

• A table of special characters. 

• The channel command words for the chan- 
nel programs. 

The 16-byte table of offsets is at the 
beginning of the Device I/O module. Each 
byte contains the binary offset factor used 
to gain access to the model channel program 
for an I/O operation. Unused bytes, 
reserved for future use, contain an offset 
value of all ones (hexadecimal FF) . If 
access is gained to a reserved byte, con- 
trol is immediately returned to the calling 
routine with register 15 containing return 
a code of 8 to indicate that the requested 
operation is not valid for the device type 
involved. The sixteenth byte contains the 
offset factor for the table of special 
characters. 






FF 

(Reserved) 


10 
(Read Initial) 


15 
(Write Initial) 


IE 
(Read Continue) 


4 


21 
(Write Continue) 


FF 

(Reserved) 


FF 

(Write 
Conversational) 


24 

(Read Repeat) 


8 


27 

(Reserved) 


2A 

(Reserved) 


2C 

(Reserved) 


FF 

(Reserved) 


C 


FF 

(Write at Line Addr) 


FF 
(Reserved) 


FF 

(Write Erase) 


2E + n 


10 


Read Initial 
Channel Program 


15 


Write Initial 
Channel Program 



Write Negative Acknowledge 
Channel Program 



2E : 



Channel Command 
Words (8 Bytes Each) 



2E + n 



Special Characters 



An operation type is associated with 
each byte in the table of offsets : 



Byte Operation Type 

Reserved 

1 Read Initial 

2 Write Initial 

3 Read Continue 

4 Write Continue 

5 Reserved 

6 Write Conversational 

7 Read Repeat 

8 Reserved 

9 Reserved 

A Write Negative Acknowledgment 

B Reserved 

C Write at Line Address 

D Reserved 

E Write Erase 



Thus, byte 4 in the table of offsets 
contains the appropriate offset value for 
any device for which the Write Continue 
operation is valid. (Otherwise, byte 4 
will contain a hexadecimal FF. ) 



Note : Although the position of the offset 
byte for an operation is fixed f the actual 
offset value contained in that byte is not 
fixed. The offset value is a function of 
the number of bytes occupied by preceding 
channel programs, which varies depending on 
the device involved. 



All offset factors are calculated with 
respect to the first byte following the 
table of offsets. 



Following the table of offsets in the 
Device I/O module are the offsets to the 
CCW for the channel program for the device; 
they are contiguous, beginning immediately 
after the sixteenth byte of the table. 



Following the last offset to the CCW for 
the channel program in the Device I/O 
module is the table of special characters 
for the device (e*g.„ circle C, circle N, 
etc.). The field contains the actual hexa- 
decimal representations of the character 
sequence. 



Device I/O modules are loaded into main 
storage by the QTAM Open routine. The 
names of the modules are: 



Figure 23. 1050 Nonswitched Device I/O 
Module 
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Device I/O Module 

IBM 1050 (nonswitched) IGG019NY 

IBM 1060 IGG019NW 

IBM 1030 IGG019NV 

AT&T 83B3 IGG019NU 

Western Union 115A IGG019NT 

IBM 1050 (switched) IGG019NX* 

TWX 33/35 IGG019NS* 

IBM 2740 (basic) IGG019NJ 

IBM 2740 (with dial) IGG019NK 

IBM 2740 (with transmit control IGG019NL 

and checking) 
IBM 2740 (with dial and transmit IGG019NM 

control) 

IBM 2740 (with dial and IGG019NN 
checking) 

IBM 2740 (with station control IGG019NO 

and checking) 

IBM 2740 (with station control) IGG019NP 

IBM 2740 (with checking) IGG019NQ 

IBM 2260 IGG019NR 

World Trade Telegraph Adapter IGG019QA 

*This module supports both Auto Call and 
Auto Answer facilities. 



Device I/O Directory 

The format of the Device I/O directory is 
as follows: 



device type, specifying physical device 
type and optional features or mode of 
operation. This device code is used by the 
Open routine in determining whether a given 
Device I/O module is in main storage. 



h 



4 bytes 



-H 



| Device Code | Device I/O Module Address | 
|. + -I 

| Device Code | Device I/O Module Address | 

L J. J 

The Device I/O directory ., contained 
within module IGG019NZ and initialized by 
the Open executor when Device I/O modules 
are loaded, contains the address of each 
Device I/O module in main storage. The 
directory allows up to 21 separate devices. 

As each DCB is opened, the Device I/O 
module for the corresponding device is 
loaded into main storage, unless the 
required module is already present. The 
address of the module is placed in the 
first available directory word, and an 
index value, representing the position of 
the entry within the directory, is placed 
in field DCBDEVTP of the DCB. The index 
value for the first directory entry is 0; 
for the second, 1, etc. 

Note : The value contained in DCBDEVTP is 
not a fixed code related to a physical 
device type. 

Before the index value is placed into 
DCBDEVTP, the contents of that field are 
placed into the first byte of the directory 
entry. This data is a fixed code for each 



BTAM CHANNEL PROGRAMS 

This section describes the BTAM channel 
programs that are generated by the Read/ 
Write routine, and describes the action of 
the Read/Write routine during channel pro- 
gram operation. Channel programs are 
listed by operation types within communica- 
tion line types. 

Each description begins with a graphic 
representation of the model channel pro- 
gram, as follows: 

!• Operation - Command code type with 

brief description of information being 
transferred. 

2- Flags - Flags that are set in the 
generated CCW: chain command (CO, 
chain data (CD),, suppress length indi- 
cation (SLI), etc. 

3- TP Op Code - Code carried in bits 2 
through 7 in the generated CCW through 
channel program execution and re- 
trieved by the Channel End Appendage 
on channel and device end. Bit is 
on (in addition to the TP Op code) in 
the last CCW generated in the channel 
program. Currently defined TP Op 
codes are: 

Code Definition 

01 Disable (only when first CCW of 
channel program) 

Dial 

Enable 

Prepare 

Write pad characters 

02 Write circle D and three circle 
Cs prior to selection 

Write EOT sequence prior to 
selection 

Write circle D and 15 idle 
characters (basic 2740) 

Write response to text 

03 Write polling or addressing 
characters or / space (2740) 
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Turnaround sequence (TWX) 



CPU - ID sequence (TWX) 



CHANNEL PROGRAMS FOR AT&T 83B3 SELECTIVE 
CALLING STATION LINES 

Read Initial Channel Program 



04 Write space (274 0) 

Write code (2260) 

Write shift (83B3) 

Write one (1030) 

Write WRU (WTTA) . 

Read response to polling 

Read response to addressing 

Read ID response (TWX, WTTA) 

Write CPU-ID sequence (WTTA). 



05 
06 
07 

08 

10 

0A 
11 

20 



Write EOA character following 

addressing (1050, 1030 , 2740), 

or 

STX (2260) 

Write at line address (2260) 

Break sequence (WTTA) . 

Read index (Auto Poll only) 

Read text 

Write text 

Read response to text 



88 Sense for 2740 (basic or with 
checking) 

4 . Count - Data count set in the 
generated CCW before execution. 
Length refers to the buffer length 
(number of bytes) specified by the 
Activate routine,. 

5. Address - Data address set in the 
generated CCW before execution. 
"Area" refers to the buffer address 
specified by the calling program. 
"Table" refers to the appropriate 
location in the table of special 
characters provided in the Device I/O 
module. "Respn" refers to the 
DECRESPN field in the DECB. "List" 
refers to the applicable polling or 
addressing list entry. 

For a description of the subroutines 
that compute the address and count value 
for generated CCWs, refer to the section on 
Read/Write Subroutines. 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 .Write deselect chars 


Table 


CD 


02 


3 


(Figs H Ltrs ) 










2. Write polling chars 


List 


CC,SLI 


03 


2 


3. Read response 


Area 


CD 


05 


2 


4. Read data 


Area +2 


SLI 


11 


Length -2 



Initiated by the Read/Write routine, the 
Read Initial channel program places the 
line in control mode* polls the terminals, 
and reads the response to polling. If the 
response is positive* the response will be 
read into the first byte of the input area. 
The positive response is followed by the 
message. Since the Read Response command 
specifies a count of 2 (with no suppressed 
length), the positive response followed by 
the message will reduce the count to zero 
and data-chain to the Read will continue to 
read the data until the transmission is 
ended with an EOT. When a negative 
response is received on the Read Response,, 
only one byte of data (the negative 
response) will be read into the message 
area and channel end/ device end occurs (no 
unit exception) . With the "wrong length" 
flag on and a nonzero data count, there is 
no data- chaining to the next Read command. 
Instead, QTAM' s channel end detects the 
polling TP Op code and initializes for the 
next terminal to be polled by returning to 
IOS for execution of the CCW beginning with 
the one containing a 03 TP Op code. 

Write Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 .Write deselect chars 


Table 


CD 


02 


3 


(Figs H Ltrs ) 










2. Write addressing chars 


List 


CD 


03 


2 


3. Write Shift chars 


Table 


CC,SLI 


04 


1 


(Ltrs ) 










4. Read response 


Respn 




06 


1 


5. Write data 


Area 


SLI 


11 


Length 



The Write Initial channel program places 
the line in control mode (to allow selec- 
tion of the terminals) by sending Figs H 
Ltrs and addresses the terminal by sending 
two addressing characters. The 83B3 
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requires a shift character after the 
addressing characters. The response is 
read. 



Write Initial Channel Program 



C HANNEL PROGRAMS FOR WESTERN UNION PLAN 
11 5A OUTSTATIONS 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write deselect characters 


Table 


CD 


02 


3 


(Figs H Ltrs ) 










2. Write addressing chars 


List 


CC, SLI 


03 


2 


3. Read response 


Respn 




06 


1 


4. Write data 


Area 


SLI 


11 


Length 



R ead Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write deselect characters 


Table 


CD 


02 


3 


(Figs H Ltrs ) 










2 —■- ^ i! - -'"- --'-- 


L's, 


CC. 5LI 


03 




3. Read response 


Area 


CD 


05 


2 


4. Read data 


Area+2 


SLI 


11 


Length-2 



The Read Initial channel program 
initiated by the Read/Write routine places 
the line in control mode by sending the 
Figs H Ltrs sequence, polls the terminal 
with the two polling characters, and reads 
the response. 



The Write Initial channel program,, 
initiated by the Read/Write routine., places 
the line in control mode (which allows it 
to be selected), addresses the terminal, 
and reads the response to addressing. 
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Read Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write deselect characters 


Table 


CD 


02 


3 


(3 circle Cs) 










2. Write polling character 


List 


CC, SLI 


03 


1 


3. Read response 


Area 


CD 


05 


2 


4. Read data 


Area+2 


SLI 


11 


Length-2 



The Read Response command specified a 
data count of 2, with wrong length indica- 
tion not suppressed, whereas the length of 
the response is one byte. When a positive 
response character and the first byte of 
the message are read under control of the 
Read Response CCW, it reduces the data 
count to zero and causes data- chaining to 
take place. The rest of the message is 
read under control of the address and count 
fields of the Read Data CCW. The execution 
of the Read continues in the channel until 
an interrupt occurs at the end of transmis- 
sion. When, on a Read Response, a negative 
response (one byte) is received, a channel 
end/device end interrupt occurs. There is 
no unit exception indication. The data 
count of 2 for a one-byte polling response 
character signals wrong length, which sup- 
presses data-chaining and allows BTAM to 
determine that a negative response was 
received. 



The channel end routine detects the 
polling restart TP Op code and reinitial- 
izes for the next terminal to be polled. 
Control is returned to IOS for execution of 
the CCWs beginning with the one containing 
a 03 TP Op code. 



The Read Initial channel program places 
the line in control mode by sending three 
circle Cs, polls a terminal with one poll- 
ing character, and reads the response to 
polling. The Read Response command has a 
data count of 2 with no suppressed length. 
Thus, when the response (one byte) is read 
and it is a positive response, the response 
will be followed by data. This will reduce 
the count to zero and cause data- chaining 
to read the rest of the data until an EOB 
or EOT is received or the count is zero. 
If the negative response is received, chan- 
nel end/device end interrupt occurs with 
unit exception. There was no data-chaining 
because of wrong length indication and QTAM 
reinitializes to poll the next terminal if 
one was specified in the list- 

Read Continue Channel Program 



Operation 


Address 


Flags 


TP-OP Code 


Count 


1 . Write positive response 
and 3 deselect characters 

2. Write 3 circle Cs 


Table 
Table 


CD 


01 
11 


4 
3 



The Read Continue channel program sends 
a positive response to the previous message 
block, followed by three circle Cs to put 
the terminal in control mode. These are 
followed by three additional circle Cs. 

Read Repeat Channel Program 



Operation 


Address 


Flags 


TP-OP Codes 


Count 


1 . Write negative response 
and 3 deselect characters 

2. Write 3 circle Cs 


Table 
Table 


CD 
SLI 


02 
01 


4 
3 



Initiated by the EOB or EOBLC routine 
after a successful Write Initial or Write 
Continue operation, the Write Continue 
channel program writes data and then 
command- chains to read the response to lon- 
gitudinal redundancy checking. This 
response is read into the DECRESPN+1, which 
is the second byte of a two-byte response 
field in the DECB.. 
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The Read Repeat channel program sends a 
negative response followed by three circle 
Cs to put the terminal in control mode. 
These are followed by three additional 
circle Cs. 

Write Initial Channel Program 



Read Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . (Write 3 circle Cs, 


Table 


CD 


02 


4 


circle S) 










Write deselect characters 










2. Write addressing 


List 


CD 


03 


1 


characters 










3. Write "1" 


Table 


CC, SLI 


04 


Table 


4. Read addressing response 


Respn 


CC 


06 


1 


5. Write circle D 


Table 


CD 


08 




6. Write data 


Area+1 


CC, SLI 


11 


Length 


7. Read response to LRC 


Respn +1 




20 


1 



The Write Initial channel program sends 
out a circle C and a circle S to deselect 
the 1030 terminals, transmits a single 
addressing character followed by a 1, and 
reads the addressing response into the 
first byte of the DECRESPN in the DECB. 
Because multiple addressing is not possible 
with 1030 lines, the Read Response CCW is 
command-chained to a Write Circle D CCW to 
send a circle D before the message. The 
Circle D CCW is data-chained to write the 
message. This is followed by a CCW with 
read the LRC response. 

Write Continue Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write data 

2. Read response to LRC 


Area 
Respn +1 


CC, SLI 


11 
20 


Length 
1 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write deselect characters 


Table 


CD 


02 


3 


(3 circle Cs) 










2. Write polling characters 


List 


CC, SLI 


03 


2 


3. Read response 


Area 


CD 


05 


2 


4 r j ad data 


Area +2 


SLI 


11 


Length-2 



The Read Initial channel program 
initiated by the Read/Write routine places 
the line in control mode, polls a terminal , 
and reads the response. (Control mode is 
that state of the system that allows a ter- 
minal to be selected.) The third command 
(Read Response character) specifies a data 
count of 2, with wrong length indication 
not suppressed, while the length of the 
response character is one byte. Under the 
existing configuration of BTAM,, the effect 
of this technique is as follows : 



1. Positive response . The response 
character and the first byte of the 
message are read under control of the 
Read Response CCW. This reduces the 
data count to zero and causes data- 
chaining to take place. The second 
and subsequent bytes of the message 
are read under control of the address 
and count fields of the Read Data CCW. 
Execution continues in the channel 
with an interrupt occurring only at 
end of transmission. 

2. Negative response . This response 
causes channel end and device end with 
unit exception and wrong length record 
indicated. The QTAM Appendages detect 
the polling restart TP Op code* reini- 
tialize for the next terminal to be 
polled, and return control to IOS for 
execution of the CCWs beginning with 
the one containing a 03 TP Op code. 
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R ead Continue Channel Program 



Write Continue Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write response 
(circle Y) 

2. Read data 


Table 
Area 


CC, SLI 
SLI 


02 
11 


1 
Length 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write Data 

2. Read response to LRC 


Area 
Respn+1 


CC, SLI 


11 
20 


Length 

1 



The Read Continue channel program is 
initiated by the EOB or EOBLC routine after 
a successful Read Initial or Read Continue 
operation; the program writes the response 
character and command- chains to Read Data. 



The Write Continue channel program is 
initiated by the EOB or EOBLC routine after 
a successful Write Initial or Write Con- 
tinue operation; the program writes data 
and command -chains to read the response to 
longitudinal redundancy checking. The 
response is read into DECRESPN+1, the 
second byte of the 2-byte response field in 
the DECB. 



Read Repeat Channel Program 



Opeiation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write negative response 

( circle N) 

2 Read data 


Table 
Area 


CC, SLI 
SLI 


02 

11 


1 

Length 



The Read Repeat channel program is 
initiated by the EOBLC routine after a data 
check occurs during execution of the Read 
Data command of a Read Initial or Read Con- 
tinue operation. The prograir transmits a 
negative response, and then chains to the 
second CCW to read data into the main 
storage area originally specified. 



Write Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write deselect characters 


Table 


CD 


02 


3 


(3 circle Cs) 










2. Write addressing chars 


List 


CC, SLI 


03 


2 


3. Read response 


Respn 




06 


1 


4. Write circle D 


Table _ 


CD 


08 


1 


5. Write data 


Area 


CC, SLI 


11 


Length 


6. Read response to LRC 


Respn +1 




20 


1 



The Write Initial channel program, 
initiated by the Read/Write routine, places 
the line in control mode, addresses a ter- 
minal,, and reads the response. Following 
the Read Response, a circle D is written to 
the terminal and is followed by the data. 
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Read Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Disable 


Zero 


CC, SLI 


01 


1 


2. Dial 


List 


CC, SLI 


01 


Dial List 


Enable 


Zero 


SLI 


01 


1 


3. Write pad characters 


Table 


CD 


01 


15 


4. Write deselect characters 


Table 


CD 


02 


3 


(3 circle Cs) 










5. Write polling characters 


List 


CC, SLI 


03 


2 


6. Read response 


Area 


CD 


05 


2 


7. Read data 


Area +2 


SLI 


11 


Length-2 



The Read Initial channel program 
initiated by the Read/Write routine dis- 
ables and then enables the line adapter so 
that a remote terminal may dial the CPU. 

When a terminal dials the CPU W the 
enable is complete, and 15 pad characters 
are sent. These are followed by three 
circle Cs to place the terminal in control 
mode. The two polling characters are sent. 
The sixth command (Read Response character) 
specifies a data count of 2, with wrong 
length indication not suppressed, while the 
length of the response character is one 
byte. Under BTAM, the effect of this tech- 
nique is as follows: 

1. Positive response . The response 

character and the first byte of the 
message are read under control of the 
Read Response CCW. This reduces the 
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data count to zero and causes data- 
chaining to take place. The second 
and subsequent bytes of the message 
are read under control of the address 
and count fields of the Read Data CCW. 
Execution continues in the channel 
with an interrupt occurring only at 
end of transmission. 



Negative response . This response 
causes channel end and device end with 
unit exception and wrong length record 
indicated. The Channel End routine 
detects the Read Response to polling 
TP Op code, reinitializes for the next 
terminal to be polled,, and returns 
control to IOS for execution of the 
CCWs beginning with the one containing 
a 03 TP Op code. 



Write Initial Channel Program 



Read Continue Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write response 

(circle Y) 

2 . Read data 


Table 
Area 


CC, SLI 
SLI 


02 
11 


1 
Length 



The Read Continue channel program is 
initiated by the EOB or EOBLC routine after 
a successful Read Initial or Read Continue 
operation; the program writes the response 
character and command- chains to read data. 



Read Repeat Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write negative response 
(circle N) 

2. Read data 


Table 
Area 


CC, SLI 
SLI 


02 
11 


1 
Length 



The Read Repeat channel program is 
initiated by the EOBLC routine after a 
transmission error occurred during execu- 
tion of the Read Data command of a previous 
Read operation. The program transmits a 
negative response, and then chains to the 
second CCW to read data into the main 
storage area originally specified. 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Disable 


Zero 


CC, SLI 


01 


1 


2. Dial 


List 


CC, SLI 


01 


List 


Enable 


Zero 


SLI 


01 


1 


3. Write pad characters 


Table 


CD 


01 


15 


4. Write deselect characters 


Table 


CD 


02 


3 


(3 circle Cs) 










5. Write addressing chars 


List 


CC, SLI 


03 


2 


6. Read response to address 


Respn 




06 


1 


7. Write end-of-addressing 


Table 


CD 


08 


1 


8. Write data 


Area 


CC, SLI 


11 


Length 


9. Read response to LRC 


Respn +1 


1 


20 


1 



The Write Initial channel program 
initiated by the Read/Write routine dis- 
ables and dials a terminal. When the 
remote terminal answers, the pad characters 
and three circle Cs are sent to place the 
terminal in control mode. The addressing 
characters are sent to address the com- 
ponent. This is followed by a circle D and 
then the data. 



Write Continue Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write data 

2. Read response to LRC 


Area 
Respn +1 


CC, SLI 
SLI 


11 
20 


Length 
1 



After the line connection has previously 
been established, the Write Continue chan- 
nel program is initiated by the EOB or 
EOBLC routine; the program writes data and 
command- chains to read the response to lon- 
gitudinal redundancy checking. The 
response is read into DECRESPN+1* the 
second byte of the two- byte response field 
in the DECB. 
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Write Conversational Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write response and 


Table 


CD 


02 


2 


deselect character 










(circle D and circle C) 










2. Write addressing chars 


List 


CC, SLI 


03 


2 


3. Read response 


Respn 




06 


2 


4. Write circle D 


Table 


CD 


08 


1 


5. Write data 


Area 


CC, SLI 


11 


Length 


6. Read response 


Respn +1 




20 


1 



The channel program trans irits a circle D 
and a circle C with a single CCW. For a 
discussion of the channel program see the 
Write Initial Channel Program. 

Write Negative Acknowledgment Channel 
Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write circle C 
2. Disable 


Table 
Zero 


CC, SLI 
SLI 


01 
01 


1 
1 



The Write Negative Acknowledgment chan- 
nel program sends a circle C to deselect 
the remote terminal and then issues a dis- 
able to disconnect the line. 



will be followed by data. This will reduce 
the count to zero and cause data-chaining 
to read the rest of the data until an ECB 
or EOT is received or the count is zero. 
If the negative response is received, chan- 
nel end/device end interrupt occurs with 
unit exception. There is no data-chaining 
because of wrong length indication and QTAM 
reinitializes to poll the next terminal if 
one was specified in the list. 



Read Continue Channel Program 



Operation 


Address 


Flags 


TP-OP Code 


Count 


1 . Write response and 


Table 


CD 


02 


4 


deselect characters 










(circle Y and 3 










circle Cs) 










2. Write 3 circle Cs 


Table 


CD 


01 


3 



The Read Continue channel program sends 
a positive response to the previous message 
block, followed by three circle Cs to put 
the terminal in control mode- This is fol- 
lowed by three additional circle Cs. 

Read Repeat Channel Program 



Operation 


Address 


Flags 


TP-OP Code 


Count 


1 . Write deselect characters 
(3 circle Cs) 


Table 


SLI 


01 


3 
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Read Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write deselect characters 


Table 


CD 


02 


3 


(3 circle Cs) 










2. Write polling characters 


List 


CC, SLI 


03 


2 


3. Read response 


Area 


CD 


05 


2 


4. Read data 


Area +2 


SLI 


11 


Length -2 



The Read Initial channel program places 
the line in control mode by sending three 
circle Cs, polls a terminal with one poll- 
ing character, and reads the response to 
polling. The Read Response command has a 
data count of 2 with no suppressed length. 
Thus, wnen the response (one byte) is read 
and it is a positive response, the response 



The Read Repeat channel program sends a 
negative response and 3 circle Cs are sent 
to put the terminal in control mode. 

Write Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write deselect characters 


Table 


CD 


02 


3 


(3 circle Cs) 










2. Write addressing chars 


List 


CC, SLI 


03 


2 


3. Read response 


Respn 




06 


1 


4. Write circle D 


Table 


CD 


08 


1 


5. Write data 


Area 


CC, SLI 


11 


Length 


6. Read response to LRC 


Respn +1 


SLI 


20 


1 



The Write Initial channel program, 
initiated by the Read/Write routine* places 
the line in control mode., addresses a ter- 
minal, and reads the response. Following 
the Read Response, a circle D is written to 
the terminal and is followed by the data. 
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CHANNEL PROGRAMS FOR TTY MODELS 33 AND 35 
TWX LINES 



Read Initial Channel Program 



Write Conversational Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Disable 


Zero 


CC, SLI 


01 


1 


2. Enable 


Zero 


SLI 


01 


1 


3. Write pad characters 


Table 


CD 


01 


15 


4. Write identification 


List 


CC, SLI 


03 


List 


5 . Read dato 


Area 


SLI 


11 


Length 



The Read Initial channel program, 
initiated Dy the Read/Write routine, dis- 
ables the line in case this was not done 
previously. The enable latch is set within 
the line adapter so that the remote termi- 
nal may dial the CPU. After the pad char- 
acters have been sent, the fourth command 
writes the identification assigned to the 
CPU in the polling list for the line. This 
is followed by the data transmitted by the 
terminal. 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write data 


Area 


SLI 


11 


Length 



The Write Conversational channel program 
is initiated by QTAM after a successful 
Write Initial operation. 



Write Negative Acknowledgment Channel 



Program 


Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write circle C 
2. Disable 


Table 
Zero 


CC, SLI 
SLI 


01 
01 


1 
1 



The Write Negative Acknowledgment chan- 
nel program sends a circle C to deselect 
the remote terminal and then issues a dis- 
able to disconnect the line. 



Write Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Disable 


Zero 


CC, SLI 


01 


1 


2. Dial 


List 


CC, SLI 


01 


List 


3. Read identification 


List 




07 


List 


4. Write data 


Area 


SLI 


11 


Length 



The Write Initial channel program, 
initiated Dy the Read/Write routine, dis- 
ables and dials a terminal and, if the 
identification received was valid, writes 
the data to the terminal. If the identifi- 
cation was invalid, the channel program is 
terminated. 

After the CPU has read the identifica- 
tion sent from the terminal, an interrupt 
occurs and the Channel End routine compares 
the identification supplied by the user in 
the TERM macro. If an unequal compare 
results, the addressing bit in the error 
half word (ait 12) is set. If an equal 
identification is received, it is assumed 
the correct terminal has been contacted and 
the channel is restarted with the Write 
Data command. 
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IBM 27 40 BASIC CHANNEL PROGRAMS 



Read Initial Channel Program 



Operation 


Address 


Flags 


TP-OP Code 


Count 


1 . Write deselect 


Table 


CD 


02 


3 


characters (3 circle Cs) 










2. Prepare 


Zero 


CC,SU 


01 


1 


3. Read data 


Area 


SLI 


11 


Length 



The Read Initial channel program places 
the line in control mode by sending three 
circle Cs. The Prepare command is sent to 
condition the control unit to receive a 
message from a terminal. The Prepare com- 
mand removes the circle D from the begin- 
ning of the message and the count is 
reduced to zero, causing command- chaining 
to the Read Data command, which reads the 
message. 
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Write Initial Channel Program 



Read Repeat Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1. Write circle D and 15 
idle characters 

2. Write data 


Table 
Area 


CD 
SLI 


02 
11 


16 
Length 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write negative response 
(circle N) 

2 . Read data 


Table 
Area 


CC, SLI 
SLI 


02 
11 


1 
Length 



The Write Initial channel program sends 
a circle D and 15 idle characters, and 
data-chains to the Write Data command to 
send the message. 



The Read Repeat channel program is 
initiated by the EOBLC routine after a 
transmission error occurred during execu- 
tion of the Read Data command of a Read 
Initial or Read Continue operation. The 
program transmits a negative response, and 
then chains to the second CCW to read data 
into the main storage area originally 
specified. 
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Read Initial Channel Program 



Write Initial Channel Program 



Operation 


Address 


Flags 


TP-OP Code 


Count 


1 . Write deselect characters 


Table 


CC,SLI 


02 


3 


(3 circle Cs) 










2. Prepare 


Zero 


CC,SU 


01 


1 


3. Read data 


Area 


SLI 


11 


Length 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1. Write circle D and 15 
idle characters 


Table 


CD 


02 


16 


2. Write data 


Area 


CC, SLI 


11 


Length 


3. Read response to 
VRC/LRS 


Respn+1 




20 


1 



The Read Initial channel program places 
the line in control mode by sending three 
circle Cs. The Prepare command conditions 
the control unit to receive a message and 
then command-chains to the Read command 
when a character is received. The circle D 
sent by the transmitting terminal is 
deleted by the Prepare command. 



Read Continue Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write response 

(circle Y) 

2. Read data 


Table 
Area 


CC, SLI 
SLI 


02 
11 


1 
Length 



The Read Continue channel program is 
initiated £>y the EOB or EOBLC routine after 
a successful Read Initial operation; the 
program writes the response character and 
command- chains to Read Data. 



The Write Initial channel program sends 
the circle D to put the terminal in control 
mode and 15 idle characters to allow termi- 
nal motors to get up to speed. This Write 
command data-chains to the Write Data com- 
mand, which sends the message and command- 
chains to the Read Response command. 



Write Continue Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write data 

2. Read response to 
VRC/LRC 


Area 

Respn+1 


CC, SLI 


11 
20 


Length 

1 



The Write Continue channel program will 
write the data and then command-chain to 
read the response into DECRESPN +1 (VRC/LRC 
response field in the DECB) . 
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Write Conversational Channel Program 



Write Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write circle D 


Table 


CD 


02 


1 


2. Write data 


Area 


CC, SLI 


11 


Length 


3. Read response to 
VRC/LRC 


Respn+1 




20 


1 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1. Disable 


Zero 


CC, SLI 


01 


1 


2. Dial 


List + 1 


CC, SLI 


01 


List 


3. Write pad characters 


Table 


CD 


01 


15 


4. Write circle D 


Table 


CD 


02 


1 


5. Write data 


Area 


SLI 


11 


Length 



The Write Conversational channel program 
first writes a circle D to put the terminal 
in receive mode, and then data-chains to 
the next write to send the data. When the 
count is zero, this command chains to read 
the VRC/LRC response into the response 
field of the DECB (DECRESPN+1) . 



Initiated by the Read/Write routine, the 
Write Initial channel program disables the 
line and command-chains to the Dial command 
to dial the terminal specified in the ter- 
minal table. After dialing, the channel 
program sends 15 pad characters before 
data-chaining, when the count is zero, to a 
Write Circle D command, which is sent 
before the data. 
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Write Conversational Channel Program 



Read Initial Channel Program 



Operation 


Address 


Flags 


Tp-Op Code 


Count 


1. Disable 


Zero 


CC, SLI 


01 


1 


2. Enable 


Zero 


CC, SLI 


01 


1 


3. Prepare 


Zero 


CC, SLI 


01 


1 


4. Read data 


Area 


SLI 


11 


Length 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write circle D 

2. Write data 


Table 
Area 


CD 
SLI 


02 
11 


1 
Length 



The Write Conversational channel program 
sends a circle D, and then data-chains when 
the count is zero to a Write Data command 
to send the message. 



Initiated by the Read/Write routine, the 
Read Initial channel program disables and 
then enables the line to receive a call. 
When a call is received, the Enable command 
chains to the Write Deselect Characters to 
set the terminal in control mode. The Pre- 
pare command conditions the control unit to 
receive a message. When a character is 
received, the count goes to zero and the 
Prepare command chains to read the data. 
The Prepare command deletes the circle D, 
which is sent by the depression of the BID 
key at the transmitting terminal. 



Write Negative Acknowledgment Channel 

Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write 3 circle Cs 
2. Disable 


Table 
Zero 


CC, SLI 
SLI 


01 
01 


3 

1 



To disconnect* the channel program sends 
three circle Cs to put the terminal in con- 
trol mode and command-chains to disable the 
line. 
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Read Initial Channel Program 



Operation 


Address 


Flags 


TP-OP Code 


Count 


1. Disable 


Zero 


CC,SLI 


01 


1 


2 Enable 


Zero 


CC,SLI 


01 


1 


3. Write deselect characters 


Table 


CC,SLI 


01 


3 


(3 circle Cs) 










4. Prepare 


Zero 


CC,SU 


01 


1 


5 . Read data 


Area 


SLI 


11 


Length 



Initiated by the Read/Write routine, the 
Read Initial channel program disables and 
then enables the line to receive a call. 
When a call is received, the Enable command 
chains to the Write Deselect Characters 
command, which places the line in control 
mode and is chained to the Prepare command, 
which conditions the control unit to 
receive a message. When a character is 
received, the count goes to zero and the 
Prepare command chains to read the data. 
The Prepare command deletes the circle D, 
which is sent by the depression of the BID 
key at the transmitting terminal. 

Read Continue Channel Program 



The Read Repeat channel program is 
initiated by the EOBLC routine after a 
transmission error occurred during execu- 
tion of the Read Data command of a previous 
Read operation. The program transmits a 
negative response, and then chains to the 
second CCW to read data into the main 
storage area originally specified. 



Write Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Disable 


Zero 


CC, SLI 


01 


1 


2. Dial 


List 


CC, SLI 


01 


List 


3. Write pad characters 


Table 


CD 


01 


15 


4. Write circle D 


Table 


CD 


02 


1 


5. Write data 


Area 


CC, SLI 


11 


Length 


6 . Read response to VRC/LRC 


Respn +1 




20 


1 



Initiated by the Read/Write routine, the 
Write Initial channel program disables the 
line before dialing the terminal specified 
in the terminal table. The 15 pad charac- 
ters are sent to allow the terminal motors 
to reach the necessary speed before the 
message is sent to it. Before the data is 
sent, a circle D is sent to the terminal. 
After the message is sent the response to 
VRC/LRC is read into the response field in 
the DECB (DECRESPN+1) . 



Operation 


Address 


1 Flags 


TP-Op Code 


Count 


1 . Write response 
(circle Y) 

2. Read data 


Table 
Area 


CC, SLI 
SLI 


02 
11 


1 
Length 



The Read Continue channel program is 
initiated by the EOB or EOBLC routine after 
a successful Read Initial operation; the 
program writes the response character and 
command-chains to read data. 

Read Repeat Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write negative response 
(circle N) 

2. Read data 


Table 
Area 


CC, SLI 
SLI 


02 

11 


1 
Length 



Write Continue Channel Program 



Operation 


Address 


Flags 


TP-Op Code Count 


1 . Write data 

2. Read response to LRC 


Area 
Respn +1 


CC, SLI 
SLI 


1 1 Length 
20 1 



After the lin 
been established 
nel program is i 
gram writes data 
the response to 
checking. The r 
DECRESPN +1, the 
byte response fi 



e connection has previously 

the Write Continue chan- 
nitiated by QTAM; the pro- 

and command- chains to read 
longitudinal redundancy 
esponse is read into 

second byte of the two- 
eld in the DECB,. 
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Write Conversational Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write circle D 


Table 


CD 


02 


1 


2. Write data 


Area 


CC, SLI 


11 


Length 


3 . Read response to VRC/LRC 


Respn+1 




20 


1 



The Write Conversational channel program 
sends a circle D after the line has pre- 
viously been established. The data is sent 
and the Write Data command chains to the 
Read Response CCW. 

Write Negative Acknowledgment Channel 
Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 o Write circle C 
2 Disable 


Table 
Zero 


CC, SLI 
SLI 


01 
01 


1 

1 



To disconnect , the channel program sends 
a circle C to put the terminal in control 
mode and command- chains to disable the 
line. 



selection characters (/ space) to select 
the fifth command (Read Response charac- 
ter). The Read Response CCW specifies a 
data count of 2, with wrong length indica- 
tion not suppressed, while the length of 
the response character is one byte. Under 
BTAM, the effect of this technique is as 
follows: 

1. Positive response . The response 

character, a circle D caused by the 
depression of the transmitting ter- 
minal's BID key, and the first byte of 
the message are read under control of 
the Read Response CCW. This reduces 
the data count to zero, and causes 
data -chaining to take place. The 
second and subsequent bytes of the 
message are read under control of the 
address and count fields of the Read 
Data CCW. Execution continues in the 
channel with an interrupt occurring 
only at the end of the transmission. 

2- Negative response . Only one byte is 
received on this response, which 
causes channel end and device end with 
unit exception and wrong length record 
indicated. There is no polling of 
components or terminals on the 2740 
with dial and transmit control; only 
the sending of the selection 
characters . 



Write Initial Channel Program 



IBM 2740 WITH DIAL AND TRANSMIT CONTROL 
Read Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1. 


Disable 


Zero 


cc,su 


01 


1 


2. 


Enable 


Zero 


SLI 


01 


1 


3. 


Write pad characters 


Table 


CD 


01 


15 


4. 


Write selection chars 
( / space) 


Table 


CC,SLI 


03 


2 


5. 


Read response 


Area 


CD 


05 


2 


6. 


Read data 


Area + 2 


SLI 


11 


Length-2 



The Read Initial channel program 
initiated by the Read/Write routine dis- 
ables and sets the enable latch within the 
line adapter so that the remote terminal 
may dial tne CPU. 

After writing 15 pad characters, 3 
circle Cs are sent to place the line in 
control mode. They are followed by the 



Operation 


Address 


Flags 


TP-OP Code 


Count 


1. Disable 


Zero 


CC,SLI 


01 


1 


2. Dial 


List 


CC,SU 


01 


List 


3. Write pad characters 


Table 


CD 


01 


15 


4. Write data 


Area 


SLI 


11 


Length 



The Write Initial channel program 
initiated by the Read/Write routine dis- 
ables and then dials a terminal. After 
writing the pad characters, the channel 
program sends the data. 



Write Conversational Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write data 


Area 


SLI 


11 


Length 



The Write Conversational channel program 
sends a Write Data command to send the 
message. 
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Write Negative Acknowledgment Channel 
Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write circle C 
2. Disable 


Table 
Zero 


CC, SLI 
SLI 


01 
01 


1 
1 



To disconnect, the channel program sends 
a circle C to put terminal in control mode 
and command- chains to disable the line. 



IBM 2740 WITH DIAL, TRANSMIT CONTROL, AND 
CHECKING 

Read Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1. Disable 


Zero 


CC,SLI 


01 


1 


2. Enable 


Zero 


SLI 


01 


1 


3. Write pad characters 


Table 


CD 


01 


15 


4. Write selection chars 


Table 


CC,SLI 


03 


2 


5. Read response 


Area 


CD 


05 


2 


6. Read data 


Area +2 


SLI 


11 


Length-2 



The Read Initial channel program 
initiated by the Read/Write routine dis- 
ables and sets the enable latch within the 
line adapter so that the remote terminal 
may dial the CPU. 

After writing 15 pad characters , 3 
circle Cs are sent to place the line in 
control mode. They are followed by the 
selection characters (/ space) to select 
the fifth command (Read Response charac- 
ter) . The Read Response CCW specifies a 
data count of 2, with wrong length indica- 
tion not suppressed, while the length of 
the response character is one byte. Under 
BTAM, the effect of this technigue is as 
follows: 

1. Positive response . The response 

character, a circle D caused by the 
depression of the transmitting ter- 
minal's BID key, and the first byte of 
the message are read under control of 
the Read Response CCW. This reduces 
the data count to zero and causes 
data- chaining to take place. The 
second and subsequent bytes of the 
message are read under control of the 
address and count fields of the Read 



Data CCW. Execution continues in the 
channel with an interrupt occurring 
only at the end of the transmission. 



Negative response . Only one byte is 
received on this response, which 
causes channel end and device end with 
unit exception and wrong length record 
indicated. There is no polling of 
components or terminals on the 2740 
with dial and transmit control ; only 
the sending of the selection 
characters. 



Read Continue Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write response 
(circle Y) 

2. Read data 


Table 
Area 


CC, SLI 
SLI 


02 
11 


1 
Length 



After the line connection has previously 
been established, the Read Continue channel 
program is initiated £>y the problem program 
through the Read/Write routine; the program 
writes the response character and command- 
chains to read data. 



Read Repeat Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write negative response 
(circle N) 

2. Read data 


Table 
Area 


CC, SLI 
SLI 


02 
11 


1 

Length 



The Read Repeat channel program is 
initiated by the EOBLC routine after a data 
check occurred during execution of the Read 
Data command of a Read Initial or Read Con- 
tinue operation. The program transmits a 
negative response, and then chains to the 
second CCW to read data into the main 
storage area originally specified. 
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Write Initial Channel Program 



Write Negative Acknowledgment Channel 
Program 



Operation 


Address 


Flags 


TP-OP Code 


Count 


1. Disable 


Zero 


CC,SLI 


01 


1 


2. Dial 


List 


CC,SU 


01 


List 


3. Write pad characters 


Table 


CD 


01 


15 


4. Write circle D 


Table 


CD 


08 


1 


5. Write data 


Area 


SLI 


11 


Length 



The Write Initial channel program 
initiated by the Read/Write routine dis- 
ables and then sets the enable latch within 
the line adapter so that the remote termi- 
nal may dial the CPU. After writing the 
pad characters , a circle D is sent before 
the message is sent. 



Write Continue Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write data 

2 . Read response to VRC/LRC 


Area 
Respn+1 


CC, SLI 


11 
20 


Length 
1 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write circle C 
2. Disable 


Table 
Zero 


CC, SLI 
SLI 


01 
01 


1 
1 



To disconnect, the channel program sends 
a circle C to put the terminal in control 
mode and command -chains to disable the 
line. 



IBM 274 WITH STATION CONTROL 



Read Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write deselect characters 


Table 


CD 


02 


3 


(3 circle Cs) 










2. Write polling character 


List 


CD 


03 


1 


3. Write space character 


Table 


CC, SLI 


04 


1 


4. Read response 


Area 


CD 


05 


2 


5. Read data 


Area +2 


SLI 


11 


Length-2 



The Write Continue channel program will 
write the data and then command chain to 
read the response into DECRESPN +1 (VRC/ 
LRC) response field in the DECB. 



Write Conversational Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write circle D 


Table 


CD 


02 


1 


2. Write data 


Area 


CC, SLI 


11 


Length 


3. Read response to 
VRC/LRC 


Respn+1 




20 


1 



The Write Conversational channel program 
first writes a circle D to put the terminal 
in receive mode, and then data-chains to 
the next write to send the data. When the 
count is zero, this command chains to read 
the VRC/LRC response into the response 
field of the DECB (DECRESPN +1). 



Initiated by the Read/Write routine, the 
Read Initial channel program places the 
line in control mode, polls the terminals, 
with one character followed by a space 
character, and reads the response to poll- 
ing. If the response is positive, the 
response will be read into the first byte 
of the input area. The positive response 
is followed by the message. Since the Read 
Response command specifies a count of 2 
(with no suppress length) , the positive 
response followed by the message will 
reduce the count to zero, and data-chaining 
will occur to continue reading the data 
until the transmission is ended with an 
EOT. When a negative response is received 
on the Read Response, only one byte of data 
(the negative response) will be read into 
the message area and channel end/device end 
occurs (no unit exception) . With the 
"wrong length" flag on and a nonzero data 
count, there is no data- chaining to the 
next Read command. Instead, QTAM channel 
end detects the polling TP Op code and 
initializes for the next terminal to be 
polled by returning to IOS for execution 
with a pointer to the Write Polling Charac- 
ters CCW. 
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Write Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write deselect characters 


Table 


CD 


02 


4 


(3 circle Cs and circle S) 










2. Write addressing chars 


List 


CD 


03 


1 


3. Write space characters 


Table 


CC,SLI 


04 


1 


4. Read response 


Respn 


CC 


06 


1 


5. Write data 


Area 




11 


Length 



The Write Initial channel program places 
the terminal in control mode and sends a 
circle S to denote that addressing will 
follow. The terminal is addressed with a 
one- character code followed by a space 
character. The response to addressing is 
read into the first byte of the response 
field in the DECB (DECRESPN) . The Read 
Response CCW is command- chained to write 
the data. 



IBM 2740 WITH STATION CONTROL AND CHECKING 
Read Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write deselect characters 


Table 


CD 


02 


3 


(3 circle Cs) 










2. Write polling character 


List 


CD 


03 


1 


3. Write space character 


Table 


CC, SLI 


04 


1 


4. Read response 


Area 


CD 


05 


2 


5 . Read data 


Area +2 


SLI 


11 


Length-2 



The Read Initial channel program 
initiated by the Read/Write routine places 
the line in control mode, polls a terminal 
with one 'character followed by a space 
character, and reads the response. (Con- 
trol mode is that state of the system that 
allows a terminal to be selected. ) The 
third command (Read Response character) 
specifies a data count of 2, with wrong 
length indication not suppressed, while the 
length of the response character is one 
byte. Under the existing configuration of 
BTAM, tne effect of this technique is as 
follows: 

1. Positive response . The response 

character and the first byte of the 
message are read under control of the 
Read Response CCW. This reduces the 



data count to zero and causes data- 
chaining to take place. The second 
and subsequent bytes of the message 
are read under control of the address 
and count fields of the Read Data CCW. 
Execution continues in the channel 
with an interrupt occurring only at 
the end of transmission. 



Negative response . This response 
causes channel end and device end with 
unit exception and wrong length record 
indicated,. The Channel End routine 
detects the polling restart TP Op 
code, reinitializes for the next ter- 
minal to be polled, and returns con- 
trol to I OS for execution of the CCWs 
beginning with the one containing a 03 
TP Op code. 



Read Continue Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write response 
(circle Y) 

2. Read data 


Table 
Area 


CC, SLI 
SLI 


02 

11 


1 
Length 



The Read Continue channel program is 
initiated by the EOB or EOBLC routine after 
a successful Read Initial operation; the 
program writes the response character and 
command- chains to read data. 



Read Repeat Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1. Write negative response 
(circle N) 

2. Read data 


Table 
Area 


CC, SLI 
SLI 


02 

11 


1 

Length 



The Read Repeat channel program is 
initiated by the EOBLC routine after a data 
check occurs during execution of the Read 
Data command of a Read Initial or Read Con- 
tinue operation. The program transmits a 
negative response, and then chains to the 
second CCW to read data into the main 
storage area originally specif ied* 
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Write Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write deselect characters 


Table 


CD 


02 


4 


(3 circle Cs and circle S) 










2. Write addressing chars 


List 


CD 


03 


1 


3. Write space characters 


Table 


CC, SLI 


04 


1 


4. Read response 


Respn 


CC 


06 


1 


5. Write circle D 


Table 


CD 


08 


1 


6. Write data 


Area 


CC, SLI 


11 


Length 


7. Read response 


Respn +1 




20 


1 



The Write Initial channel program, 
initiated by the Read/Write routine, places 
the line in control mode and informs it 
that the addressing function will follow by 
circle S, addresses a terminal with a one- 
character code followed by a space charac- 
ter, and reads the response. The status of 
the chaining flags for the third command 
depends upon the status of the addressing 
list. For multiple component addressing, 
all specified components must be logically 
connected to the line before message trans- 
mission occurs. A negative response from 
any component terminates the channel pro- 
gram and suppresses transmission. 



Write Continue Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Wri te data 

2 . Read response to VRC/LRC 


Area 
Respn +1 


CC, SLI 


11 
20 


Length 
1 



The Write Continue channel program is 
initiated by QTAM after a successful Write 
Initial operation; the program writes data 
and command- chains to read the response to 
longitudinal redundancy checking. The 
response is read into DECRESPN +1, the 
second oyte of the two-byte response field 
in the DECB. 



CHANNEL PROGRAMS FOR IBM 2848 - 2260 REMOTE 
LINES 

Specific Poll of a Display Station: On 
positive response (STX) , chains the Read 
Response to read the message. On negative 



response (EOT) , an interruption occurs. 
QTAM detects the polling restart TP code, 
initializes the channel program to poll the 
next entry within the list, and returns 
control to the supervisor. 

Request of a Printer Status: If the 
printer is ready and the buffer is empty, a 
reservation is set on the printer buffer 
that prevents transmission of messages from 
the display stations to the printer buffer. 
If a message is received indicating these 
conditions, the Read Response chains to the 
Read Data CCW. The next EOT resets the 
reservation condition. 

A negative response is either NAK, which 
indicates the printer is not ready, or EOT, 
which indicates the printer is ready but 
the buffer is not empty. Both negative 
responses set the printer request condi- 
tion, which causes the 2848 Display Control 
(DC), upon receipt of a general poll, to 
sense if the printer is in a ready condi- 
tion, and if the buffer is empty. 

Read Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 .Write deselect characters 


Table 


CD 


02 


3 


(3 circle Cs) 










2. Write polling characters 


List 


CD 


03 


2 


3. Write READ Ml code 


Table 


CC,SLI 


04 


1 


4. Read response 


Area 


CD 


05 


2 


5. Read data 


Area +2 


SLI 


11 


Length -2 



Initiated by the Read/Write routine, the 
Read Initial channel program places the 
line in control mode and polls a terminal 
with a two- character code. For the 22 60 
devices, the polling characters specify a 
general poll of the DC, a specific poll of 
a display station, or a request of a print- 
er status. After the polling characters 
are sent,, the special READ MI code is sent 
to inform the 2 848 that the CPU wants a 
message,. 

General Poll of a DC: The polling list 
must specify a general poll, with the 
second byte a hexadecimal FF. If the 
printer has a status pending as a result of 
a previous request (printer status or Write 
Initial) „ this message will be transmitted 
and the Read Response CCW will chain to the 
Read Data CCW. 

If the printer is not ready, the display 
stations are scanned for a message. If a 
message is pending, it is sent. If there 
is no message waiting for transmission, a 
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negative response EOT is received. The 
channel program is interrupted; QTAM 
detects the polling restart TP code, 
updates the channel program, and returns 
control to the supervisor. 

Read Continue Channel Prograir 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1. Write ACK 
2. Read data 


Table 
Area 


CC,SLI 
SLI 


02 
11 


1 
Length 



received, there is an interrupt. The EOT 
indicates the printer is not ready, and the , 
NAK indicates the printer is ready but the \ 
buffer is not empty. Either of these sets 
is a printer request. 

If the response is positive (ACK) , which 
indicates that the printer is ready and the 
buffer is empty, the Read Response CCW 
command-chains to send the STX (Start of 
text character) and then sends the data. 
If a transmission error occurs, the opera- 
tion is stopped and the printer buffer is 
cleared. 



The Read Continue channel program sends 
a positive response ACK and reads the mes- 
sage. If the previous operation was a spe- 
cific poll of a display station, an EOT 
will be returned, which ends the operation. 
If the previous operation was a general 
poll, a message (if one is sending) will be 
received; otherwise an EOT is received. 

R ead Repeat Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1. Write NAK 
2. Read data 


Table 
Area 


CC,SLI 
SLI 


02 

11 


1 
Length 



The Read Repeat channel program sends a 
negative response (NAK) and reads the data. 

Write Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 .Write deselect characters 


Table 


CD 


02 


3 


(3 circle Cs) 










2. Write addressing chars 


List 


CD 


03 


2 


3. Write WRITE code 


Table 


CC,SLI 


04 


1 


4. Read response 


Respn 


CC 


06 


1 


5. Write STX 


Table 


CD 


08 


1 


6. Write data 


Area 


CC,SLI 


11 


Length 


7. Read response to Text 


Respn +1 




20 


1 



The Write Initial channel program is for 
either the printer or the display station. 
The channel program places the line in con- 
trol mode, sends the addressing characters, 
and sends the WRITE code. If a printer is 
addressed, the Read Response CCW reads the 
addressing sequence response. If either an 
EOT or an tfAK (negative responses) is 



If a display station is addressed, the 
Read Response CCW reads the addressing 
sequence response, which is normally posi- 
tive (ACK) and chains to read the data. If 
a transmission error occurs, the EOBLC rou- 
tine will retry transmission three times 
before setting the error bit in the error 
halfword. 

Write Continue Channel Program 



Operation 


Address 


Flags 


TP-OP Code 


Count 


1 . Write STX 

2. Write data 

3. Read response to test 


Table 
Area 
Respn + 1 


CC,SU 
CC,SU 


08 
11 
20 


1 

Length 

1 



The Write Continue channel program 
writes the STX character and the data. The 
Write Data command is chained to the Read 
Response command, which reads the response 
into the second byte of the DECB response 
field. 

Write Erase Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1. Write deselect characters 


Table 


CD 


02 


3 


(3 circle Cs) 










2. Write addressing chars 


List 


CD 


03 


2 


3. Write ERASE Code 


Table 


CC,SLI 


04 


1 


4. Read response 


Respn 


CC 


06 


1 


5. Write STX 


Table 


CD 


08 


1 


6. Write data 


Area 


CC,SLI 


11 


Length 


7. Read response to text 


Respn +1 




20 


1 



The Write Erase channel program places 
the line in control mode„ addresses a ter- 
minal with the two -character code, and 
sends the special code ERASE. This opera- 
tion is to erase the CRT and any message on 
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the display screen starting in the upper 
left-hand corner. The response to address- 
ing is read in the first byte of the 
response field in the DECB (DECRESPN). If 
a negative response is received, the chan- 
nel program is terminated. 

If a positive response is received, the 
Read Response is chained to the Write STX 
character followed £>y data. The response 
to text is read into the second byte of the 
DECB response field. 

Write at Line Address Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 .Write deselect characters 


Table 


CD 


02 


3 


(3 circle Cs) 










2. Write addressing chars 


List 


CD 


03 


2 


3.Write WRITE LINE code 


Table 


CC,SLI 


04 




4. Read response 


Respn 


CC 


06 




5. Write STX 


Table 


CD 


08 




6. Write data 


Area 


CC,SU 


11 


Length 


7. Read response to text 


Respn +1 




20 





The Write at Line Address channel pro- 
gram places the line in control mode, 
addresses a terminal with a two-character 
code, and sends the WRITE LINE code to in- 
dicate the operation to the 28 48. The 
response to addressing is read. If it is 
positive, the Read Response chains to write 
the STX character and the data. If the 
response is negative, the channel program 
is terminated. The cursor is positioned on 
a specified line and the characters are 
displayed from that point. The response is 
read into the second byte of the response 
field in the DECB. If a transmission error 
occurs, the EOBLC routine will retry three 
times before setting the error indication 
in the error halfword. 



CHANNEL PROGRAMS EMPLOYING THE AUTO POLL 
FEATURE 

The ^TAM Device I/O modules incorporated 
for each of the terminals supported by OS 
QTAM with Auto Poll are the following: 

IGG019N3 IBM 1030 

IGG019N1 IBM 105 (nonswitched) 

IGG019N2 IBM lObO 

IGG019N9 IBM 274 (with station control) 



IGG019N8 IBM 2740 (with station control 
and checking) 

The Device I/O modules are essentially 
the same for Auto Poll as for the other 
terminal types except for the Read Initial 
operation for the 2740, which deletes the 
write space character. 

After the Read/Write module (IGG019NZ) 
has built the channel program, the Read 
Initial channel program, independent of 
terminal type, is in the following form: 



Operation 


Address 


Flags 


TP-op 
Code 


Count 


1 . Write EOT sequence 


Table 


CC,SLI 


02 


3 


2. Poll 


List 


CC,SLI 


03 


k(n)* 


3. TIC 


2nd Poll 
Command 


SLI 


09 


1 


4. TIC 


Read Response 
Command 








5. Poll 


First entry 
in List 


CC,SLI 


03 


k(n)* 


6. TIC 


2nd Poll 
Command 


SLI 


09 


1 


7. Read Response 


Area 


CD 


0A 


2 


8 . Read Data 


Area + 2 


CC,SLI,PCI 


11 


length -2 



*k = 2 for IBM 1030, 3 for other devices 
n = total number of entries in the poll- 
ing list,. 

Where, on a Read Initial command* the CCWs 
(1-8) have the following effect: 

1. EOT sequence of three circle Cs in 
line code. 

2. Polls the terminal with polling 
character. 

3. On a negative response to polling at 
the end of the list, this TIC will be 
executed to start the second Poll 
command. 

4. On a positive response to polling* 
this TIC command will be executed to 
start the Read Response command. 

5. If either Poll command terminates with 
negative response at the end of the 
list, this Poll command will restart 
polling at the beginning of the list. 

6. On a negative response to polling at 
the end of the list* this TIC command 
will be executed to restart the second 
Poll command. 

7. On a positive response to polling* 
this command will read the list entry 
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index byte and the first byte of text 
into the message area and then chain 
to 8. 

This command causes the remainder of 
the text to be read into the message 
area. 



CHANNEL PROGRAMS FOR WORLD TRADE TELEGRAPH 
ADAPTER 

The channel programs for terminal-to-CPU 
transmission (Read Initial and Read Con- 
tinue) and for CPU-to-terminal transmission 
(Write Initial) are made up of two parts: 

• The first part (identification exchange 
channel program) is a channel subpro- 
gram automatically associated with the 
second part. On request , it performs 
identification exchanges at any time 
during message transmission. 

• The second part (Read or Write channel 
program) is set up to receive input 
messages or to send output messages. 

Read I nitial Channel Program 



Read Continue Channel Program 






Operation 



1. Write CPU- 
ID se- 
quence 
(Note 2) 

2. Write (see 
Note 1) 

3. Read ter- 
minal-ID 
(Note 3) 

4. Prepare 

5. Sense 

6 . Read 



Ad- 
dress 



List 



WRU 



List 



TP Op 
Area 

Area 



Flags 



CD SLI 

CC SLI 
SLI 

CC SLI 
CC SLI 

SLI 



TP Op 
Code 



07 

04 
07 

01 
FF 

11 



Count 



Length- 1 

1 
1 

Length 



The Read Initial channel program is 
started by the Read/Write routine at the 
fourth CCW. 

The Prepare command prepares the control 
unit to receive a message and, when a 
character is received, command -chains to 
the Sense command and to the Read command. 
When the Sense command is executed, the TP 
Op code of the Sense overlaid by the adapt- 
er sense byte (which is never X'FF') f the 
contents of the Sense command TP Op code 
indicates when data is to be received. 






Operation 



1. Write CPU- 
ID se- 
quence 
(Note 2) 

2. Write (see 
Note 1) 

3. Read ter- 
minal-ID 
(Note 3) 

4. Read 



Ad- 
dress 



List 



WRU 



List 



Area 



Flags |TP Op 
| Code 



CD SLI | 07 
I 
I 



CC SLIJ 04 
I 
I 
SLI | 07 

I 

I 
I 
SLI | 11 
i. 



Count 



Length- 1 



Length 



The Read Continue channel program is 
initiated by: 

• Tha EOB routine when a WRU signal has 
been received. The channel program 
started at the first CCW performs an ID 
exchange, and then the fourth CCW reads 
the remaining data into the main 
storage area originally specified. 

• The Activate routine when the last mes- 
sage received was ended by EOM; the 
channel program is started at the 
fourth CCW. 

Write Initial Channel Program 



r t 

Operation 






1. Write 

2. Write 

3. TIC 

4. Write CPU- 
ID se- 
quence 
(Note 2) 

5. Write (see 
Note 1) 

6. Read ter- 
minal-ID 
(Note 3) 

7. Write 



Ad- 
dress 



Table 



Table 



List 



WRU 



List 



Area 



Flags 



CD SLI 



CD SLI 



CD SLI 



CC SLI 



SLI 



SLI 



TP Op 
Code 



04 



01 



07 



04 



07 



11 



Count 



1+m 
(Note) 

12 



Length-1 



Length 



Note: m is the number of mark characters 



specified by the user. 
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The Write Initial channel program is 
started by the Read/Write routine, and the 
CCWs have the following effect: 

1. Twelve letters shift characters are 
sent at the beginning of the output 
message. 

2. The transfer address in the TIC CCW is 
that of the third or of the sixth CCW f 
depending on whether the WRU macro 
instruction is present in the Send 
Header subgroup of the LPS. 

Notes 



the CPU sends the WRU signal to the 
terminal, which then sends its identi- 
fication sequence to the CPU. 



The computer identification (CPU ID) 
defined in the POLL macro instruction 
associated with the line is sent to 
the terminal. 



The terminal identification is read 
into the area reserved by the TERM 
macro instruction associated with the 
line. 



1. When the Automatic Answerback Unit 

feature is installed on the terminal, 
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MESSAGE CONTROL PROGRAM (LPS) ROUTINES 



This section summarizes the operation of 
each of the LPS routines froir which the 
user selects those required for his partic- 
ular message control functions . The rou- 
tines selected form collectively the Line 
Procedure Specification (LPS) section of 
the message control program. Each LPS rou- 
tine is contained within a module; each 
module contains a single routine. 

The majority of the LPS routines corre- 
spond to LPS macro instructions, and are 
linkage edited into the Message Control 
Program Load module because of the inclu- 
sion of the macro instructions in the mes- 
sage control source program. They are 
entered upon execution through linkages 
generated in the macro expansions. 

The remaining LPS routines are general 
routines; each of these is linkage edited 
into the Message Control Program Load 
module oecause of a linkage generated in 
any of several LPS macro instructions. 

Each of the following LPS routine 
descriptions provides: 

• Name of the routine. 

• Name of the module that contains the 
routine. 

• Function of the routine. 

• Entry point and linkage information. 

• Names of external routines used. 



BREAKOFF ROUTINE (CHART BY) 



bypassed. If the accumulated length is 
greater than the maximum length f the rou- 
tine sets up for an error by turning off 
the "receive" bit in the LCBSTATE field of 
the LCB: this keeps buffers from being 
assigned, which causes a program check. If 
the accumulated length is less than or 
equal to the maximum length, it tests for 
end of message. If it is not the end of 
message, the routine returns to the next 
LPS instruction; otherwise, it tests for 
program check. Breakoff characters are not 
written until end of message, and a program 
check indicates Breakoff characters are to 
be written. If there is no program check, 
return is made to the next LPS instruction. 
If there is a program check as a result of 
no buffer assignment, the Read Initial 
operation code is cleared, the "breakoff" 
bit in the error half word is set, and 
LCBTRST field of the LCB is set to the EOB 
of the text segment. The address of the 
CCW with a BREAK command code is moved into 
LCBSTART field of the LCB. The channel 
program is executed to write the control 
characters necessary for the breakoff. The 
Breakoff routine branches to the LPS con- 
trol to wait for the breakoff. 

Module Name : IECKBRKF 

Entry Point : Expansion of the BREAKOFF 
macro instruction generates a BALR to the 
routine at IECKBRKF, using register 15 as 
the branch register and register 14 as the 
return register. Register 14 also serves 
as a parameter register. The parameter 
list passed to the routine consists of the 
maximum length of a message. 

External Routines Used: EXCP (SVC 0) 



Function : This routine causes a message to 
be terminated and an error bit to be set, 
if the incoming message exceeds maximum 
length, or if the characters in the buffers 
are identical (usually an indication of 
terminal or line malfunction). If the 
characters are identical, the routine skips 
the length comparison and sets up for an 
error. If the characters are not identi- 
cal, the routine adds the previous count of 
characters in LCBERCCW+6 field of the LCB 
to the length of the current message, and 
restores the LCBERCCW+6. 

The Breakoff routine obtains the speci- 
fied maximum length of a message passed by 
register 14. If the specified length is 
greater than zero, the accumulated length 
is compared with the maximum length speci- 
fied; otherwise, the length comparison is 



CANCEL MESSAGE ROUTINE (CHART CL) 

Function : This routine causes the message 
to be cancelled when any of the error con- 
ditions specified by the error mask is 
indicated in the error half word, or when 
the error mask is zero. If the error mask 
is not zero, and none of the error condi- 
tions specified by the error mask is indi- 
cated in the error half word, return is made 
to the next LPS instruction. If the error 
mask is zero or the specified errors are 
detected, and if the destination code has 
not been specified in the error mask, or no 
destination code error is set in the error 
halfword* linkage is made to the Recall 
routine to obtain the header. When the 
header is available, the "cancel" bit is 
set on in the MSTATUS field of the header 



76 



prefix. When any of the error conditions 
specified by the error mask is indicated in 
the error halfword, or when the error mask 
is zero, the previous sequence number is 
stored in the TSEQUIN field of the terminal 
table unless it is equal to zero. Zeros 
are moved into the LCBMPLRT byte and 
LCBDLPTR of the LCB to cancel the multiple 
route option and distribution list, and the 
conversational mode bit in the LCB is 
cleared before returning to the next LPS 
instruction. 



Module Name; IECKCNCL 



Entry Point ; Expansion of the CANCELM 
macro instruction generates a BALR to the 
routine at IECKCNCL, using register 15 as 
the branch address register and register 14 
as the return register. Register 14 also 
serves as a parameter list register. The 
parameter list passed to the routine con- 
sists of the error mask in hexadecimal 
notation. 



External Routines Used ; Recall (IECKRC in 
module IGG019NG) 

Check I/O has been deleted in QTAM. 



DATE STAMP ROUTINE (CHART CH) 

Func tion ; This routine obtains the current 
date in packed decimal form (via a TIME 
macro), unpacks the date, and inserts it in 
the message header in the format byy.ddd, 
where b = blank, yy = year, and ddd = day 
of the year. Prior to inserting the date, 
the Date Stamp routine links to the Expand 
routine (which "expands" the header by 
shifting, seven places to the left, all 
message characters from the end of the pre- 
fix plus seven, up to and including the 
character pointed to by the scan pointer) . 
The date is then inserted in the field 
created. The scan pointer points to the 
last character in the date. 



DISTRIBUTION LIST ROUTINE (CHART DB) 



Function ; This routine stores the destina- 
tion key in the LCBDLPTR field of the LCB. 
The address of the terminal list is 
obtained from the terminal table. If there 
is an entry in the list, the address of the 
QCB for the destination is put in the 
LCBDESTQ field of the LCB. If there is no 
entry in the list or after the address of 
the QCB has been stored in the LCBDESTQ, 
the destination key is stored in the TTDKEY 
field of the prefix. The address of the 
QCB is moved into the RECB section of the 
buffer. If the Distribution List routine 
was previously entered, it branches to the 
Priority subroutine in IECKQQ01. If the 
Distribution List routine has not been 
entered previous ly„ it branches to the 
Endinsrt (End Insert) routine. The 
Endinsrt routine places the address of a 
special entry point in the Distribution 
List routine, which the Cleanup routine 
will process in a chain according to the 
priority specified. Endinsrt replaces the 
second operand of the BAL instruction to 
the Endinsrt routine with the address of 
the Priority subroutine. Endinsrt returns 
via the return register minus four, which 
returns to the same BAL instruction. This 
time the BAL instruction branches to the 
Priority subroutine. 

The code is entered from the Cleanup 
routine by a branch to a routine in the 
chain. If there is no entry in the list, 
the routine branches to the next routine in 
the chain. If there is an entry in the 
list, the address of the header is saved 
for the next destination. The destination 
key of the next entry is stored in the 
LCBDLPTR field of the LCB. If there is an 
entry in the terminal table,, the address of 
the QCB is placed in the LCBDESTQ field of 
the LCB. The routine links to the Recall 
routine to obtain the header. Upon return, 
the destination is stored in the TTDKEY 
field of the prefix. When there are more 
destinations to be satisfied, return is 
made to the start of the Cleanup routine. 



Module Name: IECKDATE 



Module Name ; IECKDLQT 



Entry Point : Expansion of the DATESTMP 
macro instruction generates a BALR to the 
routine at IECKDATE, using register 15 as 
the branch address register and register 14 
as the return register. Register 14 also 
serves as the parameter list register. The 
parameter list passed to the routine con- 
sists of a halfword containing, in binary 
form, the length (7) of the date field to 
be inserted in the message header. 

External Routines Used : Expand (module 
IECKEXPD) 



Entry Point ; The routine is entered from 
the module IECKQQ01. 



External Routines Used : 

• End Insert (Endinsrt in module 
IGG019NG) 

• Priority (in module IECKQQ01) 

• Recall (IECKRC in module IGG019NG) 
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END OF ADDRESS ROUTINE (CHART DC) 



Function ; The EOA macro expansion branches 
to the Message Type routine, which branches 
to the End of Address routine if the EOA 
character is not found by the Scan routine. 
The End of Address routine computes and 
saves the offset of the destination in the 
header from the start of the header. If 
this is the first time the EOA macro 
appears in the LPS, the routine branches 
and links (BAD to the Endinsrt (End 
Insert) routine. The Endinsrt routine 
places the address of a special entry point 
in the End of Address routine , which the 
Cleanup routine will process in a chain 
according to the priority specified by a DC 
in the routine. Endinsrt replaces the 
second operand of the BAL instruction to 
Endinsrt with the address of the Skip 
Character Set routine. Endinsrt returns 
via the return register minus four, which 
returns to the same BAL instruction. This 
time the BAL instruction branches to the 
Skip routine. 

If the EOA macro has been entered 
before, the routine branches immediately to 
the Skip routine because the code has 
already been inserted in the chain. The 
Skip Character Set routine advances the 
scan pointer past the specified EOA 
character and returns to the code generated 
by the macro. If the EOA character speci- 
fied in the macro is found by the Scan rou- 
tine through the use of Message Type rou- 
tine, return is made to the code generated 
by the EOA macro, which tests to determine 
if the header is being copied. If the 
header is being copied, a branch is made to 
the ENDRCV macro expansion, which branches 
to the Cleanup routine. If no header is 
being copied, return is made to the next 
LPS instruction. 

The End of Address routine is entered at 
the special entry point from the Cleanup 
routine by a branch to the next routine in 
the chain. The routine tests for multiple 
routing. If there is no multiple routing 
indicated in the LCBMPLRT field of the LCB, 
the routine returns to the Cleanup routine, 
which links to the next routine in the 
chain. If there is another destination, 
the routine links to the Recall routine to 
obtain the header from the disk. Multiple 
routing is set up by clearing the error 
indication in the LCBERRST field, the dis- 
tribution list pointer in the LCBDLPTR 
field, and the multiple routine indicator 
in the LCBMPLRT field in the LCB. The scan 
pointer is reset to the offset of the next 
destination from the end of the prefix,. 
The routine branches to the Route routine, 
which handles the next destination code and 
returns to the first instruction in the EOA 
macro expansion. The End of Address rou- 



tine is repeated until all destination 
codes in the header have been handled. 

Module Name : IECKEOAD 

Entry Point : Expansion of the EOA macro 
instruction generates a BALR to the Message 
Type routine at IECKTYPE, using register 15 
as the branch address register and register 
14 as the return register. Register 14 
also serves as a parameter list register. 
The parameter passed to the routine con- 
sists of the field size and the EOA 
character spec il led in the macro. The 
parameter register 1 contains the address 
of the End of Address routine. 

External Routines Used : 

• Skip Character Set (module IECKSKPS) 

• End Insert (Endinsrt in module 
IGG019NG) 

• Recall (IECKRC in module IGG019NG) 

• Route (module IECKROUT) 



END OF BLOCK ROUTINE (CHART CY) 



Function: The function of this routine 



depends on whether it is entered from the 
EOB macro expansion or from the ENDRCV 
macro expans ion . 

1. When this routine is entered from the 
EOB macro expans ion, and if the mes- 
sage has been cancelled* an error mes- 
sage has been sent, or the message has 
been rerouted, this macro is not 
executed and return is made to the 
next LPS instruction* Similarly, if 
the status byte of the CSW indicates 
either an end of transmission, a unit 
exception, or a residual count of zero 
in the CSW, return is made to the next 
LPS instruction. The end-of-block bit 
in the prefix is set because there was 
a positive indication that the message 
was correctly transmitted. In setting 
up for transmission of the next mes- 
sage,, the scan pointer is adjusted to 
segment size and is stored in the 
header prefix. The LCBTRST half word 
is updated by storing the segment size 
in this field. 

If the transmission was a Write 
operation, a check is made for 1030 or 
1060. If a 1030 or 1060, return is 
made to the next LPS instruction. 
Otherwise, the operation code is set 
for Write Continue. If the transmis- 
sion was a Read, the operation code 
for Read Continue is set in the 
LCBCECB field of the LCB. For both 
operations, the buffer is set to be 
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reused. The End of Block routine 
branches to the Activate routine. 
Return is made from the Activate 
routine. 

2. When this routine is entered from the 
ENDRCV macro expansion, it tests the 
WRJ flag in the LCB. If this flag is 
not set, return is made to the next 
LPS instruction. If the WRU flag is 
set, this indicates that the last 
character received is WRU. In this 
case, an identification exchange must 
be performed. The EOB bit in the buf- 
fer prefix is set, and the buffer is 
set to be reused. The Read Continue 
indicator is set in the LCBECB field 
of the LCB. The End of Block routine 
exits to the physical I/O routine, 
which generates and initiates execu- 
tion of the appropriate channel pro- 
gram. This channel program performs 
an identification exchange and reads 
the rest of the input message , pro- 
vided EOM is different from WRU. 

Module Name ; IECKEOBK 

E ntry Point ; Expansion of the EOB macro 
instruction or of the ENDRCV macro instruc- 
tion (if this is an LPS for a WTTA line) 
generates a BALR to the routine at IEC- 
KEOBK, using register 15 as the branch 
address register and register 14 as the 
return register. 

External Routines Used ; Activate (IECKACT 
in module IGG019NG) 



END OF BLOCK AND LINE CORRECTION ROUTINE 
(CHART CZ) 

Function ; For the following conditions the 
retry counter and error flag in the LCB are 
cleared and return is made to the next LPS 
instruction. 

1. A message has been cancelled. 

2. An error message has been sent. 

3 . The message has been rerouted . 

4. Transmission has failed three times 
and an EOT has been received. 

5. Transmission has failed and there is a 
time-out or intervention required. 

6. An EOT was received or other errors 
occurred. 

If there was a transmission error, but 
not one of the above, the "transmission 
error" and "time-out" bits are set to zero 
in the error halfword unless the permanent 
error flag was set in the LCBERCCW field of 
the LCB. The routine branches and links to 
the Recall routine to obtain the header. 
If the line is sending, Write Continue is 
set in the LCBCECB field of the LCB. If 
the device is an IBM 1030 or IBM 1060, the 



Write Initial operation code is set in the 
LCBCECB field of the LCB. Return is made 
to the start of the LPS for another try at 
transmission. 



If the line is not sending, action is 
taken to retry receiving the message. If 
an EOB is present in the header segment, 
the entire message is cancelled and a new 
buffer is set up. If no EOB is present in 
any buffer position other than the last 
position, the cancel bit of the MSTATUS 
field is set. If the sequence number is 
not zero* the last sequence number in the 
terminal table is stored in the TSEQUIN 
field of the terminal table. Linkage is 
made to the Recall routine to obtain the 
header. The scan pointer and the LCBTRST 
field of the LCB are updated. An end of 
address (EOA) character is set up, and the 
header is filled with idle characters in 
the space reserved for time, date, or 
sequence number. (The EOA and idles are 
not set for an IBM 2260 device.) The dis- 
tribution list and multiple route indica- 
tors are cleared, and error flags are reset 
to zero. For all receiving messages, the 
end of message is set in the MSTATUS field 
of the prefix, and the transmission operand 
for the retry is set in the LCBCECB field 
of the LCB. The buffer size is stored in 
the MSEGSZE field of the prefix to indicate 
the message size. The LCBCLCCW field of 
the LCB is set to reuse the buffer. A 
branch is made to the Activate routine. 

If there were no transmission errors or 
an EOT had not been received* tests are 
made on the CSW. If the status byte of the 
CSW indicates either an end of transmission 
or a residual count of zero, the retry 
counter and error flag in the LCB are 
cleared and return is made to the next LPS 
instruction,. The end of block bit in the 
prefix is set, because there was a positive 
indication that the message was correctly 
transmitted. In setting up for transmis- 
sion of the next message, the scan pointer 
is adjusted to segment size and is stored 
in the header prefix. The current segment 
is set as the last correctly transmitted 
message in the LCBRCADD field of the LCB. 
The LCBTRST halfword is updated by storing 
the segment size in this field. If the 
transmission was a Write operation, a Write 
Continue is set in the LCBCECB field of the 
LCB. If an IBM 1030 or IBM 1060 was the 
transmitting terminal, there is no further 
execution of this routine; the retry count- 
er and error flag are cleared before 
returning to the next LPS instruction. For 
a Read operation, the Read Continue opera- 
tion code is set in the LCBCECB field of 
the LCB. For both operations, the buffer 
is set to be reused. The routine branches 
to the Activate routine. Return is made 
from the Activate routine. 
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Module Name : IECKEOBC 

Entry Point : Expansion of the EOBLC macro 
instruction generates a BALR to the routine 
at IECKEOBC, using register 15 as the 
branch address register and register 14 as 
the return register. 

External Routines Used : 

• Activate (IECKACT in module IGG019NG) 

• Recall (IECKRC in module IGG019NG) 

ERROR MESSAGE ROUTINE (CHART CQ) 

Function : This routine causes a user- 
written error message to be sent to a 
designated terminal when any of the error 
conditions specified in the error mask is 
indicated in the error halfword, or when 
the error mask is zero. If the error mask 
is not zero and none of the error condi- 
tions specified by the error mask is indi- 
cated in the error half word, return is made 
to the next LPS instruction. If there has 
been a sequence number error, the last 
valid sequence- in number is obtained from 
the terminal table. The error text is 
scanned for a dollar sign ($). If a $ is 
found, the sequence-in number is inserted, 
in decimal form, in the error text. Upon 
encountering a second $, the specified 
sequence number, obtained from the header 
prefix, is inserted in decimal form in the 
error text. 

When an error condition is encountered, 
linkage is made to the Recall routine (in 
module IGG019NG) to obtain the header. A 
test is made for the option of including 
the header of the message in the error mes- 
sage. If the header is not to be included, 
the scan pointer is reset to the beginning 
of the header of the message in error. The 
specified error message then overlays the 
header. If the header is included, the 
pointer remains positioned at the end of 
the header. The buffer is loaded with the 
error text. If the error message exceeds 
the space in the buffer, the text is trun- 
cated. The size of the message is stored 
in MSEGSZE field, and single segment is 
indicated in MSTATUS field of the prefix. 
Linkage is made to the Lookup routine, 
which looks up the destination code in the 
terminal table and places the relative 
address in the TTDKEY field of the header 
prefix for the error message to be sent. 
Return to the next LPS instruction is made 
by the Lookup routine. 

Module Name : IECKERMG 

Entry Point : Expansion of the ERRMSG macro 
instruction generates a BALR to the routine 
at IECKERMG, using register 15 as the 
branch address register and register 14 as 
the return register. Register 14 also 



serves as a parameter list register. The 
parameter list passed to the routine con- 
sists of the error mask in hexadecimal 
notation. Register contains the length 
of the error message (0 if an address is 
specified) . The address of the destination 
terminal is contained in register 2; the 
address of the error message is in 
register 1. 

External Routines Used : 

• Recall (IECKRC in module IGG019NG) 

• Lookup (module IECKLKUP) 



EXPAND ROUTINE (CHART CU) 

Function : If the scan pointer is pointing 
to a blank character* the pointer is 
shifted back one position. The number of 
characters to be shifted is computed by 
subtracting the end of the prefix and the 
number of spaces to be expanded from the 
value in the scan pointer. If the result 
is negative, return is made to the next LPS 
instruction because there is no space for 
the shift. If there is sufficient space, 
the characters are moved to the left the 
number of spaces indicated. After the 
characters of the header have been shifted, 
a blank is inserted as a left delimiter at 
the start of the field. The scan pointer 
for the next destination is shifted to the 
left the length of the new field. If an 
EOA has not been reached,, the scan pointer 
is stored in LCBMPLRT of the prefix. 
Return is made to the calling routine. 

Module Name : IECKEXPD 

Entry Point : The routine is entered via a 
BALR from SEQOUT, TIMESTMP, or DATESTMP; 
register 15 is the branch address register 
and register 3 is the return register. The 
address of the parameter list is passed to 
the routine in register 14. The parameter 
list contains the number of spaces the 
header is to be expanded. 



External Routines Used: 



None 



INTERCEPT ROUTINE (CHART CT) 

Function : This routine causes suppression 
of all message transmission to a terminal 
when any of the error conditions specified 
by the error mask is indicated in the error 
halfword,, or when the error mask is speci- 
fied as zero. If the error mask is not 
zero, and none of the error conditions 
specified by the error mask is indicated in 
the error half word, return is made to the 
next LPS instruction. The routine makes 
linkage to the Recall routine to recall the 
header. The "serviced" bit is turned off 
and the "priority" bit is turned on in the 
prefix so that a new sequence number is not 
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assigned. The "send" bit of the TSTATUS 
byte of the terminal table for that entry 
is turned off to indicate that messages on 
the queue for the destination were withheld 
from transmission. If the "intercept" bit 
in the TSTATUS byte is on r indicating that 
a previous message is in the INTERCPT 
field, and if the header address is greater 
than the address in the INTERCPT field, 
return is made to the next LPS instruction. 
If the header address is less than the 
address in the INTERCPT field, and if the 
"intercept" bit in the TSTATUS byte is off, 
the "intercept" bit is set to one, to indi- 
cate that a message on the queue was not 
transmitted, and the header address is put 
into the INTERCPT field in the user area of 
the terminal table entry. The offset to 
the INTERCPT field in the terminal table is 
obtained and saved in LPSTART for the 
Release Intercepted Message routine. 
Return is made to the next LPS instruction. 



Module Name : IECKITCP 

Entry Point : Expansion of the INTERCPT 
macro instruction generates a BALR to the 
routine at IECKITCP, using register 15 as 
the branch address register and register 14 
as the return register. Register 14 also 
serves as a parameter list register. The 
parameter list passed to the routine con- 
sists of the address of the error mask in 
hexadecimal notation for the communication 
line. The parameter register 1 contains 
the address of the INTERCPT field in the 
terminal table. 

External Routines Used : Recall (IECKRC in 
module IGG019NG) 



Entry Point : The Lookup routine is 
entered, either: 

1. At IECKDRCT, via a BALR in the DIRECT 
macro expansion. (Register 15 is the 
branch address register and register 
14 is the return register) . 

2. At IECKLKUP, via unconditional 
branches from the Routing, Error Mes- 
sage,, and Reroute routines* 

External Routines Used: None 



MESSAGE MODE ROUTINE (CHART Ctf) 

Function : This routine is entered when a 
specific character is specified in the 
second operand of the macro. Linkage is 
made to the Scan routine to obtain the next 
nonblank character in the header. If the 
character provided by the Scan routine is 
identical to the one specified in the MODE 
macro, the Message Mode routine branches to 
the routine designated in the first 
operand. If the characters do not match w 
the scan pointer is restored, and return is 
made to the next LPS instruction. 

Module Name : IECKMODE 

Entry Point : Expansion of the MODE macro 
instruction generates a BALR to the routine 
at IECKMODE, using register 15 as the 
branch address register and register 14 as 
the return register. The parameter list 
passed to the routine consists of the 
character that is compared with the first 
nonblank character in the header. Register 
1 is a parameter register that contains the 
address of the routine specified by the 
first operand of the macro. 



LOOKUP ROUTINE (CHART CO) 

Function : This routine obtains, in succes- 
sion, the destination name contained in 
each terminal table entry and compares it 
with the destination name provided in a 
work area. Each time a no-compare results, 
the process is repeated with the destina- 
tion name from the next terminal table 
entry. When a match results, the routine 
obtains, from the terminal table entry, the 
address of the queue control block for the 
destination queue, and places this QCB 
address in the LCBDESTQ field of the LCB. 

If the terminal name in the work area 
does not match any destination name in the 
terminal table, the routine turns on the 
invalid destination bit (bit 0) in the 
error half word, and places the address of 
the QCB for the dead-letter queue in the 
LCBDESTQ field of the LCB. 

Module Name: IECKLKUP 



External Routines Used : Scan (module 
IECKSCAN) 



CONVERSATIONAL MODE ROUTINE (CHART CX) 

Function : The "converse" bit is set in the 
LCBSTATE field of the LCB. If this is the 
first appearance of the macro in the LPS, 
the Conversational Mode routine branches 
and links (BAD to the End Insert routine. 
If the Conversational Mode routine has been 
previously entered, return is made to the 
next LPS instruction. The End Insert rou- 
tine places the address of a special entry 
point in the code of the Conversational 
Mode routine, which the Cleanup routine 
will process for the conversational mode in 
a chain according to the priority specified 
by a DC in the routine. End Insert 
replaces the second operand of the BAL 
instruction to End Insert with the address 
of the next LPS instruction,, and returns 
via the return register minus four, which 
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returns to the same BAL instruction. This 
time the BAL instruction branches to the 
next LPS instruction. 

This section of the routine is entered 
from the Cleanup routine by a branch to the 
next routine in the chain. If the conver- 
sational mode has not been indicated, an 
error message is to be processed, or a 
polling or addressing error has occurred, 
return is made to the next routine in the 
chain. The conversational mode must be 
used for processing; therefore, if the 
queue is not a processing queue, return is 
made to the next routine in the chain. 

If the line is receiving, the routine 
branches to the LPS Control routine at 
STARTUP to wait for the incoming message to 
be processed. If the line is sending, the 
line is turned around to receive by setting 
the highest priority, the "converse" and 
"receive" bits in the LCBSTATE field of the 
LCB, and the Read operation code in the 
LCBCECB field of the LCB. If the end of 
the polling list has been reached, the 
start of the polling list is stored in the 
LCB poll pointer. The LCBCLCCW field of 
the LCB is reset with the BRB address for 
initialization of the Activate routine. 
The routine issues a post to insert the BRB 
into the ready queue, and branches to the 
LPS Control routine at STARTUP to wait for 
the message to be received. The LPS Con- 
trol routine returns to the code in the 
Conversational Mode routine. The "service" 
bit is set in the prefix of the message and 
the "converse" bit is cleared in LCBSTATE 
field of the LCB. If the source terminal 
was not identified, then return is to the 
start of the Cleanup routine. The chain,, 
pointed to by the QCB for a source termi- 
nal, is searched for a DEB to see if the 
process queue contains a reply. If the 
chain has been searched completely, return 
is to tne start of the Cleanup routine. If 
there is a reply, the LCBSTATE field is set 
to send, and the Write operation code is 
set in the LCBCECB field of the LCB. The 
routine posts the original message to the 
empty buffer queue. The LCB is restored 
with the disk address of the reply. The 
relative address of the E0B is set in the 
LCBTRST field of the LCB. The routine 
posts to the I/O queue, and branches to the 
LPS Control routine at STARTUP to wait for 
the message to £>e received. 

Module Name: IECKCVRS 



Entry Point : If there is no specified 
character in the second operand of the 
macro, the expansion of the MODE macro 
instruction generates a BALR to the routine 
at IECKCVRS, using register 1 as the branch 
address register and register 14 as the 
return register. If there is a character 



specified in the second operand, the 
address of the Conversational Mode routine 
is placed in the parameter register 1,, and 
the routine is entered by a branch from the 
Message Mode routine. 

External Routines Used : 

• End Insert (Endinsrt in module 
IGG019NG) 

• LPS Control (STARTUP in module 
IGG019NG) 

• Qpost (IGC067 in module IECKQQ01) 



INITIATE MODE ROUTINE (CHART CW) 

Function : The routine sets the "initiate" 
bit in the LCBSTATE field of the LCB. 
Return is made to the next LPS instruction. 

Module Name : IECKNATE 

Entry Point : If there is no specified 
character in the second operand of the 
macro, the expansion of the MODE macro 
instruction generates a BALR to the routine 
at IECKNATE, using register 1 as the branch 
address register and register 14 as the 
return register. If there is a character 
specified in the second operand,, the 
address of the Initiate routine is placed 
in parameter register 1 9 and the routine is 
entered by a branch from the Message Mode 
routine. 

External Routines Used: None 



PRIORITY MODE ROUTINE (CHART CW) 

Function : Linkage is made to the Scan rou- 
tine, which obtains and provides the 
address of the first nonblank character in 
the header. This character is moved into 
the LCBPTEMP field of the LCB to be the 
priority of the message. Return is made to 
the next LPS instruction. 

Module Name : IECKPRTY 

Entry Point : If there is no specified 
character in the second operand of the 
macro, the expansion of the MODE macro 
instruction generates a BALR to the routine 
at <IECKPRTY, using register 1 as the branch 
address register and register 14 as the 
return register. If there is a character 
specified in the second operand, the 
address of the Priority subroutine is 
placed in parameter register 1, and the 
routine is entered by a branch from the 
Message Mode routine. 

External Routine Used : Scan (module 
IECKSCAN) 
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MESSAGE TYPE ROUTINE (CHART CA) 

Function : This routine saves the scan 
pointer, and then links to the Scan rou- 
tine, which obtains and provides (for the 
Message Type routine) the message header 
character pointed to. The Message Type 
routine compares the character provided 
with the character specified in the MSGTYPE 
macro statement. If the characters are 
identical, the routine branches to the next 
executable LPS instruction. If they are 
not identical, the routine restores the 
scan pointer and branches to the next Mes- 
sage Type routine (if this is the last Mes- 
sage Type routine, it branches to the next 
delimiter routine). Because the scan 
pointer is restored when the two characters 
are not the same, a series of Message Type 
routines may be executed, each examining 
the same message type character in the 
header. 

Module flame : IECKTYPE 

Entry Point : Expansion of the MSGTYPE 
macro instruction generates a BALR to the 
routine at IECKTYPE, using register 15 as 
the branch address register and register 14 
as the return register. Register 14 also 
serves as a parameter list register. The 
parameter list passed to the routine con- 
sists of: 

• A half word containing the field size 
(one byte) . 

• A character constant containing the 
character to be compared with the 
scanned character. 

• A character constant containing a 
blank. 

External Routines Used : Scan (module 
IECKSCAN) 



OPERATOR AWARENESS (CHART EO) 



If a threshold message is to be sent, 
indicated by a nonzero value in the next to 
the last byte in the LCB, the line number 
(in next to last byte) and counters are 
obtained from the LCB and placed in the 
message in printable form in the following 
format: 

THRESHOLD aaa TRANS=bbb DC=ccc IR=ddd TU=eee 

Where: aaa = Line number 

bbb = Transmission counter 

ccc = Data check counter 

ddd = Intervention required counter 

eee = Time-out counter 

After the message has been formatted the 
threshold counters are cleared. 

The routine branches and links to the 
Buffer Recall routine in the Implementation 
module to obtain the header. Idle charac- 
ters are inserted if specified,. The mes- 
sage is moved into the buffer. The QCB 
address is obtained from the operator con- 
trol entry in the terminal table. 

The routine exits by branching to the 
Buffer Cleanup routine to post the message 
and return all buffers. 

jypdule Name : IECKOPAW 

Entry Point : Expansion of the POSTSEND or 
POSTRCV macro instruction generates an 
unconditional branch to the Implementation 
module (IGG019NG). This location in the 
module is a branch instruction to an 
address constant of the Operator Awareness 
routine at IECKOPAW. The routine is passed 
the LCB address, which contains information 
for the messages „ in register 4 and the 
address of the buffer, into which the mes- 
sage is to be placed,, in register 6. 

External Routines Used : Buffer Recall and 
Cleanup (IECKRC and IECKPR in IGG019NG) 



Function : This routine is used to format 
messages to be sent to the operator control 
terminal. If an I/O error message is to be 
sent, indicated by a hexadecimal • FF' in 
LCBCPA +28, the line number, status, sense,, 
TP Op Code, index byte, and terminal ID are 
obtained from the LCB and put into the mes- 
sage in printable form in the following 
format: 

I/O ERR,aaa,bb,cccc,ddee,ff gghhhh 

where: aaa = Line number 

bo = Operation code 
cccc = Status half word 
ddee = Sense information 

ff = TP Op code 

gg = Index byte 
nhhn = Terminal identifier 



OPERATOR CONTROL ROUTINE (CHART EE) 

Function : After saving the base register, 
scan pointer register, and return register, 
the routine branches to the Scan routine to 
get the first field of the current message 
header. A test is made for a header error. 
If one has occurred, control is returned to 
the next LPS instruction after the scan 
pointer register and return register are 
restored. 

The control message indicator characters 
are moved into a work area and compared 
against this first field of the header. If 
they are not the same, then that message is 
not a control message; scan pointer and 
return registers are restored and control 
returns to the next LPS instruction. 
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If this is a control message, a test is 
made to see if it is a single-segment mes- 
sage. If it is a multisegment message f or 
if it is cancelled , the source key is moved 
to the destination key field of the termi- 
nal table entry, the QCB for that terminal 
is moved into the destination queue field 
of the LCB,, registers are restored, and 
control is returned to the macro, which 
branches to ENDRCV f thus initiating the 
resending of that message to the source 
terminal. 

If this is a single-segment message and 
it was not cancelled, the next field of the 
header is obtained by the Scan routine. 
This field, which should be the message 
type, is compared to find the type of 
operation desired. When the operation type 
is found, control passes to the routine to 
handle that process. If the operation 
specified is not valid, the iressage is 
retransmitted to the source terminal as 
described above. 

SUB1 (CHART EF) : Common subroutine to get 
the next field in the header (termname) , 
find the offset of that terminal from the 
beginning of the terminal table, get the 
size of the remainder of the buffer, and 
the address of the terminal table, IECKSCAN 
and IECKDRCT are used to scan the header 
and look up the next field in the terminal 
table. If the terminal table entry is 
found, control returns to the calling rou- 
tine. If not found, control is passed to 
the routine that will initialize for 
resending the message to the source 
terminal. 



remaining in the buffer. The lesser figure 
is passed to the UNPAK subroutine to unpack 
the entry into the buffer and translate it. 
The message is then sent to the source. 



RCOPYC (CHART EG) : Control is passed to 
the SUB1 subroutine to get the termname,, 
offset to that terminal table entry, and 
the number of bytes remaining in the buf- 
fer* The QCB address is obtained from the 
entry and a check is made to see if this is 
a terminal entry. If a list or process 
entry, then the message is returned to the 
source terminal. If it is a terminal 
entry,, the relative line number and DCB 
address are gotten from the QCB. The LCB 
size and the address of the start of the 
LCBs are obtained from the DCB. The LCB 
address for this line is calculated, and 
the address of the counters in that LCB is 
calculated. The copy QCB is posted to 
itself. When the QCB comes to the top of 
the ready queue,, the Copyclr routine is 
executed. 

The Copyclr routine restores the regis- 
ters to their values before the Qpost. The 
threshold counters are added to the cumula- 
tive counters. The number of bytes remain- 
ing in the buffer is compared with the num- 
ber of bytes needed to receive the trans- 
lated counter data. The smaller figure is 
used as the number of bytes to be unpacked 
and translated by the UNPAK subroutine. 
When control returns from the UNPAK subrou- 
tine, the threshold counters are cleared to 
zero and control passes to the Qdispatch 
subroutine. 



UNPAK (CHART EF) ; Common subroutine used 
to unpack the terminal table entry or the 
counters and convert the data to EBCDIC. 
The data is unpacked 8 bytes at a time into 
the buffer until there are less than eight 
bytes left to be converted. When this 
occurs, the next 8 bytes are unpacked into 
a work area. The data in the work area is 
moved into the buffer for the remaining 
number of characters. A check is made to 
see if the EOB and LOT characters can fit 
in the ouffer. If they cannot, the EOB and 
EOT are moved into the last two bytes of 
the buffer. Otherwise, they are moved into 
the two bytes following the converted data. 
The actual size of the data to be trans- 
mitted is stored in the MSEGSZE field of 
the message prefix. 

RCOPYT (CHART EH) : Control is passed here 
when a COPYT control message is received. 
The routine uses the SUB1 subroutine to get 
the offset of the termname and the number 
of bytes remaining in the buffer. The size 
of the terminal table entry is obtained and 
doubled to get the number of bytes after 
conversion. The s^ze of the unpacked entry 
is compared with the number of bytes 



RSWITCH (CHART EK) 



Control comes here 



when a SWITCH control message is received. 
A test is made to see if the ALTERM parame- 
ter was specified. If it was not,, the mes- 
sage is returned to the source terminal. 
If ALTERM was specified, the offsets to the 
primary control terminal and the alternate 
are reversed in the macro- generated parame- 
ter list. The "serviced" bit in the prefix 
is set, and control is returned to the 
macro, which then branches to the ENDRCV 
macro expansion. 

RCHNGT (CHART EI) : Control comes here when 
a CHNGT control message is received* SUB1 
is used to get the offset to the terminal 
table entry and the number of bytes left in 
the buffer. The blank delimiters following 
termname in the header are skipped over. 
The data to be placed in the terminal table 
is translated and this data is scanned for 
a delimited blank, EOB, EOT, or invalid 
character. If a delimiter is not found or 
if an invalid character is founds a test is 
made to see if there is enough room to 
insert the EOB and EOT in the buffer. If 
there is room, it is put in after the data. 
If not, it is put in after termname. In 
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either case, the message is returned to the 
source terminal. 



If the data is valid, and the delimiter 
is found, the number of bytes to be moved 
into the terminal table entry is checked 
for zero. If zero, the serviced bit is 
turned on in the header prefix and control 
is returned to the macro, which branches to 
ENDRCV. If greater than zero, a test is 
made for an odd number of bytes to be 
moved. If odd, then the same procedure is 
followed as for an invalid character. If 
even, a test is made to see if the data in 
the buffer, when converted, will fit in the 
terminal table entry. If not, the same 
procedure is followed as for an invalid 
character. 

If the data will fit, then registers are 
set up and Qpost is issued, posting the 
change QCB to itself. When the QCB comes 
to the top of the ready queue, the terminal 
table is changed. The routine doing this. 
Change, is disabled to interrupts. 

Change routine gets the QCB address from 
the terminal table entry to be changed. If 
this is a list or process entry, the point- 
er to the area in the terminal table to be 
changed is bumped past the size and QCB 
address fields. The data to be inserted is 
packed and moved into the terminal table. 
Exit is to the Qdispatch subroutine . If 
this is a terminal entry, the relative line 
numoer and DCB address are taken from the 
QCB. The LCB size and start of the LCB is 
obtained from the DCB. With this informa- 
tion, the address of this LCB is calcu- 
lated. A test is made to see if this line 
is active. If not, the pack and move is 
initiated (INACTIVE). If the line is 
active, the pointer to the area in the ter- 
minal table entry is bumped past the 
sequence numbers. If there is no data to 
move, control passes to the Qdispatch sub- 
routine. If there is data to be moved, the 
pack and move operation is initiated. 



RINTRCPT (CHART EJ) : Control is passed 
here when an INTERCPT control message is 
received. A test is made to be sure 
INTRCPT was specified in the macro. If it 
was not, the message is returned to the 
source terminal. If INTRCPT was specified, 
SUB1 is used to get the offset of the ter- 
minal specified in termname, and the number 
of bytes in the remainder of the buffer. A 
test is made for a terminal entry. If not 
a terminal entry, the message is returned 
to the source terminal. If it is a termi- 
nal entry, the "send" bit in the TSTATUS 
field of the entry is set off, the "ser- 
viced" oit in the header prefix is turned 
on and control is passed to the macro, 
which branches to ENDRCV. 



RRELEASM (CHART EJ) : Control is passed 
here when a RELEASM control message is 
received. SUB1 is used to get the offset 
to the terminal table entry corresponding 
to the termname in the message header, and 
the number of bytes remaining in the buf- 
fer. A test is made to see if that termi- 
nal is in intercept mode. If not, the 
"serviced" bit in the header prefix is set 
on and control passes to the ENDRCV macro. 
If the terminal is in intercept mode, the 
address of the intercept field in the ter- 
minal table entry is obtained and the QCB 
address is acquired. The relative record 
number of the first message intercepted is 
compared with the relative record number of 
the highest-priority message received to 
see if any priority messages were inter- 
cepted. If priority messages were inter- 
cepted, the relative record number of the 
first message intercepted overlays the 
relative record number of the highest- 
priority message intercepted. In either 
case, the first message intercepted will be 
the first released. 

The "intercept" bit and the bits in 
TSTATUS are set to and the send bit is 
turned on. The "serviced" bit in MSTATUS 
is turned on and control is passed to 
ENDRCV. 

RSTARTLN (CHART EK) : Control is passed 
here when a STARTLN control message is 
received, SUB1 is used to get the offset 
of the terminal indicated by termname, and 
the number of bytes remaining in the buf- 
fer. The QCB for that entry is obtained 
and a test is made to make sure this is a 
terminal entry. (If it is a process or 
list entry, the message is returned to the 
source terminal.) The RLN and DCB address 
are acquired and the scan pointer is 
adjusted for the next field. The next 
characters are compared for an "All" entry. 
If "All" is specified, control passes to 
the Line Change routine (IECKLNCH) at the 
"start all" entry point. If "All" is not 
specified, then control passes to the Line 
Change routine at the "start one line" 
entry point. When control returns, a test 
is made of the error flags for errors. If 
there are no errors* then the "serviced" 
bit in the MSTATUS field of the header pre- 
fix is set on so the buffer will be 
returned to the available buffer queue, and 
control passes to ENDRCV* If there was an 
error, the message is returned to the 
source terminal. 

RSTQPLN (CHARTS EL AND EM) : Control is 
passed here when a STOPLN control message 
is received or from the RINTREL routine 
when an INTREL control message is received. 
SUB1 is used to get the offset of the table 
entry for the terminal specified in term- 
name, and the number of bytes remaining in 
the buffer. SUB2 is used to check for a 
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terminal entry, and if it is one, to get 
the relative line number and the DCB 
address. The size of the buffer is checked 
to be sure it is at least the minimum size. 
If less than the minimum, the message is 
returned to the source terminal. The line 
count is set to 1 and the line number is 
obtained from the QCB. The DCB address 
(acquired in SUB2) is obtained and the 
address of the source terminal is calcu- 
lated. If the source terminal is in the 
line group to be stopped and either 

1. "All" is specified, or 

2. The source terminal is on the line to 
be stopped, then the message is 
returned to the source. Any of these 
conditions would cause the control 
terminal to become permanently 
inoperative. 

If the source terminal is not on a line 
to be stopped, a test is made to be sure 
the DCB for that line group has been 
opened. If it has not, the rressage will be 
returned to the source. 

The address of the DEB is obtained from 
the DCB and the number of extents is 
acquired from the DEB. A test is made to 
see if the relative line number of the line 
to be stopped is too high. If so, the mes- 
sage is returned to the source terminal. 

If a STOPLN is being handled, the next 
field in the message is compared for the 
characters "All". If "All" is specified, 
the line number is set to one and the line 
index is set to the number of lines in that 
group. 

If this routine is executed as a result 
of receiving a STOPLN operator control mes- 
sage, and "All" was specified, the line 
count index is set to the number of lines 
in the line group, and the relative line 
pointer is set to one so that the first 
line in the line group will be the first 
one stopped. If this routine is executed 
as a result of receiving an INTREL control 
message, or if "All" was not specified in a 
STOPLN control message, the line count 
index is one and the relative line pointer 
has the relative line number of the line to 
be stopped. These values will be used in a 
BCT loop to stop the desired number of 
lines. 

For either STOPLN or INTREL functions, 
the registers are saved and the QCB for the 
Stop routine is posted to itself, causing 
it to be placed on the ready queue with 
highest- priority. An SVRB is built by the 
SVC- handling routine with the address of 
the instruction following the Qpost as the 
point to receive control. This SVRB is 
placed on the ready queue following the QCB 
for the line to be stopped (i.e., the QCB 



is at the head of the ready queue and the 
STCB is next.) 

When the next item on the ready queue is 
dispatched, the ST0P1 routine receives con- 
trol. ST0P1 will execute disabled to 
interrupts as a result of Qposting. 

ST0P1 restores the registers and places 
the address of the Operator Awareness rou- 
tine (IECKOPAW) in the buffer recall/ 
cleanup address in IGG019NG to insure that 
IECKOPAW is executed at buffer recall/ 
cleanup time. 

The size of an LCB is obtained from the 
DCB for that line group and is stored in 
the header for that message. The relative 
line number is also stored in the header. 
The relative line number is multiplied by 
the size of an LCB. This product is added 
to the DCBLCBAD (address of first LCB minus 
the size of an LCB) in order to point to 
the LCB for that line. A test is made to 
see if this line is active. If it is not, 
control is passed to the loop control code 
to determine if another line is to be 
stopped. 

If this line is active, a test is made 
to see if there is an STCB for an operator 
control subtask pending for this LCB. If 
there is, the STCB is tested for a STOPLN 
function. If the STOPLN function STCB is 
the one pending, then it is ignored. 

If this line was already stopped^ or if 
a STOPLN subtask was pending for this LCB, 
the relative line index is incremented by 
one, and a BCT is executed on the line 
counter. If this is the last line to be 
stopped, then one is subtracted from the 
relative line number to get the relative 
line number of the last line stopped. A 
test is made to see if this routine was 
activated as a result of an INTREL control 
message. If it was not, a test is made to 
see if this is the first pass. If it is, 
the "serviced" bit is set in the buffer and 
the next element on the ready queue is dis- 
patched- If it is not the first pass, the 
buffer is posted to the available buffer 
queue. 

If there is no operator control STCB on 
the queue for that LCB, or if the operator 
control STCB is not a STOPLN STCB, access 
is gained to UCB for that line. If this is 
a dial line or 274 (basic or with check- 
ing),, and not in active transmission, a 
Halt I/O command is issued to clear the 
enable. If the CSW was stored, the Halt 
I/O command is repeated until the CSW is 
not stored. 

If this is a WTTA line, and not an inac- 
tive transmission, a Halt I/O command is 
issued to clear the Prepare command. If 
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the CSW was stored, the Halt I/O command is 
repeated until the CSW is not stored. 



If this is not a dial line nor a WTTA 
line, or if the dial line or the WTTA line 
is active, or if the CSW was not stored 
after tne Halt I/O, then a first pass 
switch is tested. If this is the first 
time through for this message, the address 
of the ST0P2 routine is placed in the 
LCBDESTQ field of the LCB so this buffer 
will be posted to ST0P2 when the LCB for 
the operator control terminal goes through 
the Cleanup routine. Control is passed to 
the Qdispatch subroutine in IECKQQ01 to 
activate the next item on the ready queue. 



The next item on the ready queue is the 
SVRB created as a result of Qposting the 
QCB for STOP to itself. The SVRB activates 
the instruction following the Qpost, which 
is a branch back to the macro. The macro 
branches immediately to the ENDRCV macro, 
which performs buffer cleanup. The buffer 
is posted to the destination queue, which 
in this case is the queue for the ST0P2 
routine, and STOP 2 receives control. 

When ST0P2 receives control, the address 
of the LCB for this line is retrieved from 
the QCB for ST0P2. An STCB to stop the 
line is dynamically built in the buffer. 
The message itself is of no use, so the 
buffer is used as a convenient place. The 
STCB is placed at the head of the STCB 
chain for the LCB. If RSTOPLN was entered 
from RINTREL, the INTREL switch is turned 
off, and the INTREL switch in the LCB is 
set, the next element on the ready queue is 
dispatched. 

Subtaskl is activated when the LCB for 
the line to be stopped is posted to itself, 
thus indicating that that line was stopped. 
The STOPLN STCB is removed from the LCB*s 
STCB chain, and the LCBSTATE is set to zero 
to deactivate the LCB. The address of the 
DCB is obtained from the LCB, and the 
address of the DEB is obtained from the 
DCB. If entry was from RINTREL, control is 
passed to Subtask2. 

The following procedure will be followed 
only if this was a STOPLN control message. 
The address of the next STCB in the LCB 
chain is obtained and a test is made to see 
if it is a full STCB. If it is not, the 
LCB is removed from the ready queue. In 
either case, if there are more lines to be 
stopped, the procedure is looped through 
again to stop the rest. 

If there are not more lines to be 
stopped, the buffer is returned to the 
available suffer queue and the next item on 
the ready queue is dispatched. 



If the INTREL switch is set, control 
passes to the Subtask2 routine to put the 
buffer on the time queue. 



RINTREL (CHART EN) ; Control is passed to 
RINTREL when an INTREL operator control 
message is received. A switch is set to 
indicate to the RSTOPLN that an INTREL con- 
trol message is currently being handled. 



RSTOPLN will handle the stopping of the 
desired line. After the LCB address and 
the relative line number have been re- 
trieved from the buffer by Subtaskl ,„ a test 
is made for an INTREL function. If the 
message was an INTREL message, control is 
passed to Subtask2. 

Subtask2 removes the LCB for the line to 
be stopped from the ready queue. The 
INTREL switch is turned off. The address 
of the STCB2 routine is stored into the 
STCB in the buffer, as is the LCB address. 
If this routine is entered by way of an I/O 
interrupt, an SVC QCB is set up and put on 
the ready queue. When it comes to the top 
of the queue, an SVC interrupt will occur, 
and control will be passed to HAVESVC. 
When Subtask2 is sure it was entered via an 
SVC interrupt, the buffer is made to look 
like an LCB and placed on the time queue 
for two minutes. 

When the two-minute interval has 
elapsed* the buffer comes to the head of 
the time queue, is posted to the queue for 
the STCB2 routine, and STCB2 receives con- 
trol. The address of the available buffer 
queue is acquired and the LCB is posted to 
itself. This action posts the buffer to 
the available buffer queue and puts the LCB 
back on the ready queue. 

When the operator awareness routine 
detects an irrecoverable error on a line in 
INTREL mode, it acquires a buffer and posts 
that buffer to the queue for the STOP 4 rou- 
tine. The relative line number and the LCB 
address of the line are stored in the buf- 
fer. If the line is already inactive, the 
buffer is placed on the time queue. If the 
line is active, control is passed to a 
point in RSTOPLN to stop the line. 

The TIMEQ subroutine is entered from 
RSTOPLN when an INTREL message is being 
processed and a STOPLN is pending on that 
line. TIMEQ turns off the INTREL switch 
and sets the INTREL switch in the LCB. The 
line is always active at this point. A 
switch is set in the buffer to denote 
INTREL. The next item on the ready queue 
is dispatched. 



Module Name: IECKOCTL 
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Entry Point ; Expansion of the OPCTL macro 
instruction generates a BALR to the Opera- 
tor Control routine at IECKOCTL, using reg- 
ister 15 as the branch register, and regis- 
ter 14 as the return address register. 
Before branching, the macro- generated code 
checks the message to assure that it is 
from either the control terminal or the 
alternate. If the message is a control 
message, control will eventually return to 
the macro- generated code. The first 
instruction executed upon return is a BALR 
to the £NDRCV macro. 

Register 1 is the parameter register. 
The parameter list will vary from 20-50 
bytes. If all parameters are specified, 
the list will look like this: 



4 bytes 
1 byte 



Address of Operator 

Awareness routine 
Length of control 
message name 
identifier 
1 byte status byte X'00 1 neither INTRCPT 

nor ALTERM specified 
X'01' ALTERM 

specified 
X'02' INTRCPT 

specified 
X'03' Both ALTERM and 
INTRCPT specified 
Offset to control terminal 
Offset to alternate terminal 
(included only if 
ALTERM is specified) 
Offset to INTRCPT field 

(included only if 
INTRCPT is 
specified) 
Variable Control message name identifier 



External Routines Used : 
SCAN (IECKSCAN) 

Stop Line-Start Line (IECKLNCH) 
Look-up (IECKDRCT) 



2 bytes 
2 bytes 



2 bytes 



When the special character is found, the 
COUNT is decremented by one. If COUNT 
reaches 0, indicating that the limit of the 
insert blocks has been reached, return is 
to the next LPS instruction. The routine 
issues a wait for an insert block, obtained 
from the queue defined by the queue control 
block (INSERTQ) assembled in the routine. 
The address of the queue for the insert 
block is placed in the last word of the 
insert block. To fill in the insert block, 
the address of the next BRB is stored, and 
the command and the address of the next 
character after the previous special 
character are placed in the insert block. 
The next block in the chain is updated by 
placing the address of the next character 
after the special character in the data 
address and by adjusting the count. The 
count of characters up to the special 
character is placed in the second word of 
the insert block. The address of the next 
block of the previous BRB is updated to 
point to the insert block. The flags, 
counts, and TIC command are placed in the 
insert block to complete this block. The 
routine loops back to scan for other spe- 
cial characters in the buffer. 

Module Name : IECKPAUS 

Entry Point : Expansion of the PAUSE macro 
instruction generates a BALR to the routine 
at IECKPAUS, using register 15 as the 
branch address register. The routine 
returns via register 3. Register 14 is 
used as a parameter list register. The 
parameter list passed to the routine con- 
sists of: 

• The number of idle characters. 

• The special characters. 

• The bit configuration for the idle 
characters. 

External Routines Used : Qwait (IGC065 in 
module IECKQQ01) 



POLLING LIMIT ROUTINE (CHART CR) 



PAUSE ROUTINE (CHART CO) 

Function : The address of the first byte to 
scan for a special device control character 
is computed for a header or text segment. 
If there has been a previous pause, the 
number of remaining insert blocks is 
obtained from COUNT. If there have been no 
previous insertions, COUNT (a defined con- 
stant in the Pause routine) is the number 
of available insert blocks. The buffer is 
scanned for the special character specified 
in the PAUSE macro. If the specified 
character is not found, return is made to 
the next LPS instruction. 



Function : This routine limits the number 
of messages to be accepted from a non- 
switched terminal during one polling pass. 
If the polling pointer is not equal to the 
terminal entry for the current message or 
is at the end of the polling list, return 
is made to the next LPS instruction. 
Otherwise, the current poll count is com- 
pared to the limit specified. If the 
count, incremented by one, is less than the 
limit, return is made to the next LPS 
instruction. If the count, incremented by 
one, exceeds or is equal to the limit, the 
pointer is set to the next terminal before 
returning to the next LPS instruction. If 
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this is an autopolled line, the length of 
the next entry is obtained from the start 
of the polling list. If the entry is the 
end of the polling list, the pointer is set 
to the first entry. 

Module iflame : IECKPLMT 

Entry Point : Expansion of the POLLIMIT 
macro instruction generates a BALR to the 
routine at IECKPLMT, using register 15 as 
the branch address register and register 14 
as the return register. The parameter reg- 
ister 1 contains the maximum number of 
messages. 



External Routines Used: 



None 



up the destination code in the terminal 
table and places the relative address in 
the TTDKEY field of the incoming header 
prefix. Return to the next LPS instruction 
is made by the Lookup routine, rather than 
the Route routine. 



Module Name : 



IECKROUT 



Entry Point : Expansion of the ROUTE macro 
instruction generates a BALR to the routine 
at IECKROUT, using register 15 as the 
branch address register and register 14 as 
the return register. Register 14 also 
serves as a parameter list register. The 
parameter list passed to the routine con- 
sists of a half word containing, in binary 
form, either: 



REROUTE ROUTINE (CHART CS) 

Function : This routine causes a message to 
be sent to an alternate destination, in 
addition to its normal routing, when any of 
the error conditions specified by the error 
mask is indicated in the error halfword, or 
when the error mask is zero. If the error 
mask is not zero, and none of the error 
conditions specified by the irask is indi- 
cated in the error halfword, return is made 
to the next LPS instruction. Linkage is 
made to the Recall routine (in module 
IGG019NG), which obtains the header. Upon 
return, the Reroute routine branches to the 
Lookup routine, which looks up the destina- 
tion code in the terminal table and places 
the relative address in the TTDKEY field of 
the incoming header prefix. Return to the 
next LPS instruction is made by the Lookup 
routine. 

Module Name : IECKRRTE 

Entry Point : Expansion o;f the REROUTE 
macro instruction generates a BALR to the 
routine at IECKRRTE, using register 15 as 
the branch address register and register 14 
as the return register. Register 14 also 
serves as a parameter list register. The 
parameter list passed to the routine con- 
sists of the address of the error mask in 
hexadecimal notation. The parameter regis- 
ter 2 contains the address of the alternate 
destination. 

External Routines Used : 

• Recall (IECKRC in module IGG019NG) 

• Lookup (module IECKLKUP) 



ROUTE ROUTINE (CHART CN) 



1. The maximum size of each destination 
code in incoming message headers, or 

2. All ones, indicating that the destina- 
tion code fields are of variable 
length (the end of the field is indi- 
cated by a blank). 

Extern a l Routines Used : 

• Scan (module IECKSCAN) 

• Lookup (module IECKLKUP) 



SCAN ROUTINE (CHART CF) 



Function: This routine links to the Scan 
routine to obtain the destination code in 
the incoming message header, and then 
branches to the Lookup routine, which looks 



Function : This routine obtains one or more 
nonblank characters from a fixed length or 
variable length header field and places 
them in a work area, the address of which 
is provided in a parameter register to the 
calling routine. The Scan routine moves 
the scan pointer one position at a time, 
and places the header characters pointed to 
into the work area. This operation is 
repeated until either the end of the field 
is reached or the work area is filled (work 
area size is eight bytes). 

If the field to be scanned is of fixed 
length, its size is provided to the routine 
in a parameter list; the routine places 
into the work area the number of characters 
specified. During scanning, any blank 
characters encountered are passed over. 
They are not placed in the work area and 
they are not included in the count of 
characters maintained by the routine. 

If the field to be scanned is of vari- 
able length, an indicator (2X*FF') is 
passed to the routine in a parameter list. 
If end of segment is reached before the 
specified scan length has been satisfied, 
bit five ("incomplete message header") is 
set in the error halfword. The Scan rou- 
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tine places all header characters up to the 
first blank in the work area. 



Module Name: IECKSCAN 



Entry Point : The routine is entered via 
BALR from the IECKPRTY,IECKSEQIN, IECKSKPS,, 
IECKMOD£,IECKROUT,Ii:CKSRCE, and IECKTYPE 
modules; register 15 is the branch address 
register and register 3 is the return reg- 
ister. The address of a single-item param- 
eter list is passed to the routine in reg- 
ister 14. The parameter list contains the 
field length or variable field length 
indicator. 



External Routines Used: 



None 



SEQUENCE IN ROUTINE (CHART CV) 



SEQUENCE OUT ROUTINE (CHART CM) 

Function : If the SEQOUT macro appears in 
the Receive header portion of the LPS f the 
destination QCB is checked for being a pro- 
cess QCB. If this is not a process QCB f 
return is made to the next LPS instruction. 
If this is a Process QCB, linkage is made 
to the expand routine,, which expands the 
header to create a new field. The value of 
the scan pointer is stored in the MSNUMCUT 
field of the header. Return is made to the 
next LPS instruction. 

If this macro is in the Send header por- 
tion of the LPS, linkage is also made to 
the Expand routine, which "expands" the 
header by creating a new field whose high- 
order byte is the location pointed to by 
the scan pointer. The binary sequence num- 
ber is obtained from the header prefix and 
converted to decimal form. The sequence 
number is unpacked and inserted into the 
new header field. Return is made to the 
next LPS instruction. 



Function : This routine links to the Scan 
routine to obtain the sequence number from 
the header. All characters in sequence are 
converted to binary notation and put into 
the MSNUMIN field of the header prefix. If 
the numoer is not in sequence according to 
the TSEQUIN field in the terminal table 
entry, the "sequence error" bit is set ac- 
cordingly in the LCB. If the sequence num- 
ber is too low, the routine sets the "too 
low" bit in the LCBERRST field of the LCB, 
and return is made to the next LPS instruc- 
tion. If the sequence is too high, the 
"too high" bit is set in the LCBERRST field 
of the LCB and return is made to the next 
LPS instruction. If the number is in the 
correct sequence , the expected sequence 
numoer is stored in the LCBBRKCT field of 
the LCB. The sequence number from the 
header is also incremented by one and 
restored in TSEQUIN field of the terminal 
table for the next message before returning 
to the next LPS instruction. 



Module Name : IECKSEQN 

Entry Point : Expansion of the SEQIN macro 
instruction generates a BALR to the routine 
at IECKSEQN, using register 15 as the 
branch address register and register 14 as 
the return register. Register 14 also 
serves as a parameter list register. The 
parameter list passed to the routine con- 
sists of the address of the number of 
character positions for the input message 
sequence number. If this operand is 
omitted, a hexadecimal ' FF' indicates a 
variable length field. 



External Routines Used : 
IECKSCAN) 



Scan (module 



Module Name : IECKSEQT 

Entry Point : Expansion of the SEQOUT macro 
instruction generates a BALR to the routine 
at IECKSEQT, using register 15 as the 
branch address register and register 14 as 
the return register. Register 14 also 
serves as a parameter list register. The 
parameter list passed to the routine con- 
sists of the address of the number of 
character positions for the output sequence 
number. 

External Routine Used : Expand (module 
IECKEXPD) 



SKIP (CHARACTER COUNT) ROUTINE (CHART CJ) 

Function : This routine advances the scan 
pointer from its current position past a 
specified number of nonblank header charac- 
ters. The pointer then points to the last 
nonblank character needed to complete the 
count. Moving the scan pointer causes all 
characters bypassed to be ignored during 
header processing. If the scan pointer 
reaches the end of the segment prior to 
exhausting the specified count, bit five, 
"incomplete message header," is set in the 
error ha If word. 

External Routines Used : None 

Module Name : IECKSKPC 

Entry Point : Expansion of the SKIP macro 
instruction specifying a number of charac- 
ters to be skipped generates a BALR to the 
routine at IECKSKPC, using register 15 as 
the branch address register and register 14 
as the return register. Register 14 serves 
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also as a parameter list register. The 
parameter list passed to the routine con- 
sists of a halfword containing the number 
of characters to be skipped. 



S KIP (CHARACTER SET) ROUTINE (CHART CJ) 

Function ; This routine advances the scan 
pointer from its current position past all 
header characters up to and including a 
specified character sequence. The scan 
pointer then points to the last character 
in the sequence. Moving the scan pointer 
causes all characters bypassed to be 
ignored during header processing • If the 
Scan routine returns an error indication in 
LCBERRST, the Skip routine clears the mul- 
tiple routing indicator in the LCB and 
points the scan pointer to the end of the 
buffer. Return is made to the next LPS 
instruction. 

Module Name ; IECKSKPS 

Entry Point ; Expansion of the SKIP macro 
instruction specifying a particular 
sequence of characters to be skipped 
generates a BALR to the routine at 
IECKSKPS, using register 15 as the branch 
address register and register 14 as the 
return register. Register 14 also serves 
as a parameter list register. The parame- 
ter list passed to the routine consists of: 

1. A halfword containing the length of 
the character sequence to be found; 

2. A character constant containing the 
characters to be found. 

External Routines Used : Scan (module 
IECKSCAN) 



SOURCE ROUTINE (CHART CI) 



Function: 



This routine determines the 



validity of the source code field of an 
incoming message header. The routine links 
to the Scan routine to obtain the source 
code from the header. 

If the message orginated from a non- 
switched terminal, the contents of the 
source code field are compared with the 
name of the originating terminal (as the 
name appears in the terminal table entry) . 
If the characters match, return is made to 
the next LPS instruction because the source 
code is considered valid. 

If tne message originated from a 
switched terminal or an autopolled line, 
the contents of the source code field are 
compared with each terminal entry name in 
the terminal table until a match is found. 
If a match is found, the addresses of the 



DCB, obtained from the LCB, and the 
destination QCB of the terminal table are 
compared. If the source is in the same 
line group then it is considered valid. 
Therefore, for dial lines only, the priori- 
ty of the Send Scheduler is set to 2 to 
prevent a dial. This priority had been 
initialized to 1 by the expansion of the 
TERM macro. The routine places the rela- 
tive address of the source entry in the 
TTSKEY field of the header prefix and in 
the LCBTTIND field of the LCB. Return is 
made to the next LPS instruction. 

If no match is found or the switched 
line was not in the line group specified* 
the code is considered invalid. If the 
source code is invalid, the routine sets 
bit 6 ("invalid source code") of the error 
halfword for the line to 1. Control 
returns to the next LPS instruction,. 

Module Name : IECKSRCE 

Entry Point : Expansion of the SOURCE macro 
instruction generates a BALR to the routine 
at IECKSRCE, using register 15 as the 
branch address register and register 14 as 
the return register. Register 14 also 
serves as a parameter list register. The 
parameter list passed to the routine con- 
sists of a halfword containing a source 
code field-length indicator. 



External Routines Used : 

IECKSCAN) 



Scan (module 



TIME STAMP ROUTINE (CHART CK) 

Function : This routine obtains the current 
time in packed decimal format (via a TIME 
macro) , unpacks the time* and inserts a 
specified portion of the time information 
in the message header. Prior to inserting 
the time, the routine links to the Expand 
routine, which "expands" the header by 
shifting to the left all message characters 
from the end of the prefix plus the count 
up to and including the character pointed 
to by the scan pointer* The number of 
character positions by which the header 
characters are shifted is equal to the 
length of the time information to be 
inserted. The time is then inserted in the 
field created. The maximum field size is 
nine characters in the format bhh.mm.ss, 
where b = blank, hh = hours,, mm = minutes, 
and ss = seconds. The scan pointer points 
to the last character in the time. Smaller 
field sizes have a similar format, trun- 
cated from the right. 

Module Name : IECKTIME 

Entry Point : Expansion of the TIMESTMP 
macro instruction generates a BALR to the 
routine at IECKTIME, using register 15 as 
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the branch address register and register 14 
as the return register. Register 14 also 
serves as a parameter list register. The 
parameter list passed to the routine con- 
sists of a half word containing , in binary 
notation,, the length of the time informa- 
tion field to be inserted in the message 
header. 



External Routines Used : 
IECKEXPD) 



Expand (module 



TRANSLATE ROUTINE (CHART CP) 

Function : This routine translates message 
segments from one code to another,. The 
number of characters to be translated is 
computed by subtracting the address of the 



first byte to be translated from the 
address of the end of the segment. If the 
number is not negative, the message is 
translated using the table specified in the 
macro. Return is made to the next LPS 
instruction. 



Module Name : IECKTRNS 

Entry Point : Expansion of the TRANS macro 
instruction generates a BALR to the routine 
at IECKTRNS, using register 15 as the 
branch address register and register 14 as 
the return register. The parameter regis- 
ter 1 contains the address of the transla- 
tion code table named in the operand of the 
macro. 

External Routines Used: None 
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ROUTINES IN THE TRANSIENT AREA 



The Open and Close routines are in the 
transient area. The expansion of these 
macro instructions is a system expansion. 
The system Open and Close routines branch 
to the QTAM Open and Close routines via an 
XCTL from the where-to-go- table. 



CLOSE COMMUNICATIONS LINE GROUP ROUTINE 
(CHART EB) 

Module Name : IGG0203N 

Function : The Close Communications Line 
Group routine is entered from the system 
Close routine. This routine obtains the 
address of the DCB being closed. From this 
DCB and the associated DEB, the routine 
calculates the size and starting address of 
the LCB. A FREEMAIN is issued for the main 
storage occupied by the LCB. The LCB and 
the IOB pointers and status bytes are 
cleared in the DCB. Completion of this 
executor is indicated in the where-to-go 
table. If the routine is to be used again 
for another DCB, a branch is taken to the 
beginning of the routine. The normal exit 
of this routine is an XCTL to the next non- 
zero entry in the where-to-go table. 



CLOSE DIRECT ACCESS MESSAGE QUEUE ROUTINE 
(CHART EC) 



Module Name: 



IGG0203O 



Function : The Close Direct Access Message 
Queue routine is entered from the system 
Close routine. If the CLOSE is for a 
checkpoint data set, a test is made for 
normal completion. If an abnormal comple- 
tion is set in the TCB address, the next 
entry in the where-to-go-table is obtained. 
If normal completion, the TTR is converted 
to a disk address. A CCW is set up in the 
Checkpoint routine to write the control 
record to indicate that there was normal 
completion. A EXCP is issued to write the 
record. If, upon completion, there was a 
permanent I/O error, the routine is ended 
abnormally with an error code of 0A4. 
Otherwise,, the next entry in the where- to- 
go table is obtained. 

If the Close routine is entered for a 
direct access message queue data set, the 
routine clears the terminal table entry in 
the communications vector table. The 
address of the first available buffer is 
moved into the link field of the first 
available request. The IOB address is 
reset in the DCB. 



If there are any items in the ready 
queue, each element is tested for a QCB. 
If it is a QCB and items are present in the 
chain of STCBs, a test is made for a full 
STCB. If the item on the ready queue or in 
the chain is a full STCB„ the ECB address 
is obtained. The routine then links to the 
OS Post routine to post the ECB as complete 
and to remove the STCB,. When there are no 
more items on the ready queue, the entry in 
the where-to-go table is cleared. If the 
routine appears again in the where-to-go 
table, it is ended with a dump because 
there is only one DCB for the direct access 
device. The normal exit of this routine is 
to the next nonzero entry in the where-to- 
go table. 



CLOSE PROCESS QUEUE (INPUT AND OUTPUT) 
ROUTINE (CHART EA) 



Module Name : IGG0203P 

Function : The Close Process Queue routine 
is entered from the operating system Close 
routine. The DEB for the DCB being closed 
is searched for in the chain of processing 
program DEBs. If the DEB for the DCB is 
not found, a branch is taken to the end of 
the routine to set up for a new entry. If 
the DEB is found, it is removed from the 
message queue DEB chain and from the TCB 
chain of DEBs. 

If the DCB is for input, the unprocessed 
header segment is placed into the disk 
queue and the unprocessed text segments are 
placed into the unavailable buffer queue by 
a Qpost. When the last dummy element is 
reached, a branch is taken to the common 
part of the program. If the DCB is for 
output and there is a remaining buffer, 
this buffer is returned to the available 
buffer queue by Qpost. If an LCB is found 
in the chain, the dummy LCB in the DEB is 
removed from the destination queue. 

For both input and output DCBs, if there 
are no more DCBs to close, a test is made 
for general closedown. If a general close- 
clown exists, each DEB in the chain is 
obtained. If the associated DCB is for 
communications , the routine prepares to 
stop each line represented in the extents. 
If the line is a dial line or an active 
transmitting line, the Halt I/O is skipped; 
otherwise, the line is stopped with a Halt 
I/O. The routine waits if the line is 
active. At the end of the chain of DEBs, 
the message control partition is requested 
to issue a CLOSE. 



Routines in Transient Area 93 



If there are more DCBs to close or it is 
not a general closedown , the current entry 
is cleared in the where-to-go table. If 
this routine is to be used again for anoth- 
er DCB, a branch is taken to the beginning 
of the routine. The normal exit of the 
routine is an XCTL to the next nonzero 
entry in the where-to-go table. 



LINE GROUP OPEN EXECUTOR - LOAD 1 ROUTINE 
(CHART ffl) 

Module Name : IGG0193N 

Function ; This routine is entered from the 
system Open routine. The routine obtains 
the length of the DEB by adding the minimum 
size of a DEB, and four bytes for the 
extents of each device. The routine then 
performs a GETMAIN to obtain storage for 
the DEB. The DEB is cleared to zeros and 
then initialized. The pointer to the STCB 
of the dial out-call queue, located at 
DEB -28, and the STCB chain pointer are 
initialized to point to DEB -20. The 
priority field is set to X'FF* to indicate 
a dummy last element. The address of the 
basic DEB is stored in the TCB and the 
DCBDEBAD field of the DCB. The DCB address 
is stored in the DEBDCBAD field of the DEB. 
If the numoer of buffers is less than or 
equal to two, the DCBBUFRQ field of the DCB 
is set equal to two. The UCB information 
is moved from the TIOT to the DEB. If the 
direct access device has not been opened, 
an ABEND is issued with the completion code 
of 0A6. 

Analysis of the device type set in the 
UCB is done on the telecommunication 
devices found in the UCBs . Error codes are 
set for incorrect specifications, and the 
program is ended with a dump. Tests are 
performed on the model type (1060, 2740,, 
1050, and 1030) for each terminal adapter. 
Error codes are set if adapter type or ter- 
minal is found to be in error, and the pro- 
gram is ended with a dump,. Tests are made 
for the optional features of Auto Call, 
Auto Poll, terminal-to-terminal, or Auto 
Answer for the IBM 1060, 274 0, 1050, and 
1030. If the correct optional bits are not 
set, an error code is set and the program 
is ended with a dump. The device code used 
for the vector directory is set. 

The WTTA Line Appendage module IGG019QB 
is loaded into main storage, and its 
address is set in the DEB appendage table. 
Linkages are established with the QTAM Line 
Appendage routine. The "WRU" bits of the 
LPS (LPSTART macro expansion) are moved 
into the DCB. 

If this routine is required again, the 
routine branches to the beginning of this 
routine. Upon completion, control is 



passed via an XCTL to the Line Group Open 
Executor - Load 2 Routine. 



LINE GROUP OPEN EXECUTOR - LOAD 2 ROUTINE 
(CHART F2) 

Module Name : IGG0193R 

Function : This routine is entered by an 
XCTL from the Line Group Executor-Load 1* 
Tests are continued for model types 83B3, 
115A, TWX, and 226 for each terminal 
adapter,. Error codes are set if adapter 
type or terminal is found to be in error w 
and the program is ended with a dump. 
Tests are made for optional features of 
Auto Call, Auto Poll, terminal-to-terminal, 
or Auto Answer for 83B3, 115A, TWX, and 
2260. 

To the minimum size of an LCB (8 8 bytes) 
is added the size of the channel program 
for a particular device. A GETMAIN is done 
for an LCB for each line in the group. The 
address of the LCB minus the size of an LCB 
is stored in the DCBLCBAD field of the DCB, 
and the size of the LCB is stored in the 
DCBEIOBX field of the DCB. The IOB address 
is stored in the DCBIOBAD field of the DCB,, 
and the device type is inserted in the 
DCBDEVTP field of the DCB. The IOB is 
initial ized*. 

For an IBM 27 02 adapter, a channel com- 
mand word is built in the channel program 
area with the correct SAD command. Except 
for an IBM 2701 with type III adapter, if 
there is no Auto Call or Auto Answer fea- 
ture,, a CCW with an Enable command code is 
set in the channel program area. If there 
is no Auto Call or Auto Answer and a 
restart is in progress, a READ Skip com- 
mand, for a TTY device, or a Break command, 
for other devices, is set in the CCW. 

If the line is being opened for input, 
the receive scheduler STCB is initialized. 
For input and output, the return code, 
priority, and line start indication are set 
for posting the LCB to start the line. 

If a restart is to be done, a search is 
done on the saved data*. If the LCB was 
saved, the saved data is restored; other- 
wise, the line is treated as usual. If the 
line was checkpointed, it is only restarted 
if it was active. The dummy ECB address is 
stored in the IOB and the address of the 
next LCB is obtained. This process con- 
tinues for all lines. 

Upon completion, the routine tests for 
another DCB to be opened. If there is 
another DCB, a branch is made to the start 
of the Load 2 routine. The routine exits 
to Line Group Executor - Load 3 via an 
XCTL. 
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LINE GROUP OPEN EXECUTOR - LOAD 3 ROUTINE 
(CHART F3) 



Module Name : IGG0193T 

Function : This routine is entered by an 
XCTL from the Line Group Executor - Load 2 
routine. The identification, relative 
track number, and record address of the 
BTAM Read/Write module is set for the Load 
subroutine. The Load subroutine loads the 
BTAM Read/Write module for use by QTAM. 
The offset to the channel identification 
table, record address, and relative track 
number are obtained to load in the Device 
I/O module,. The model channel program for 
the device specified in the DCBDEVTP field 
of the DCB is loaded into the channel pro- 
gram area. 

If a restart is in progress, a search of 
the terminal table is made for a destina- 
tion QCB. If the DCB specified in the QCB 
is not the current DCB, the search is con- 
tinued for another destination QCB. The 
address of the LCB is obtained for the DCB 
being opened. 

If the "send" bit is not on, this is a 
receive-only terminal, therefore setting up 
the Send Scheduler is skipped. 

If the "send" bit is on for this termi- 
nal, the send scheduler STCB is set up in 
the QCB. If the Send Scheduler is already 
in the QCB, the search is continued on the 
terminal table. If the address of the next 
segment is equal to the next message, one 
less segment is put in the link field of 
the QCB. If the line is trying to send, 
the address of the header is set in the 
QFAC field of the QCB. 

If there is an incoming message, the 
header is read from the disk and the "can- 
cel" bit is set to cancel the message. The 
header is rewritten on the disk. This is 
done for each DCB to be opened. 

Each line is started by issuing an EXCP 
on the channel program. After all lines 
have been started, the next DCB is gotten. 
The routine exits to Line Group Executor- 
Load 4 via an XCTL. 



OPEN LINE GROUP EXECUTOR LOAD 4 ROUTINE 



delay from the time of entry to the rou- 
tine,. If the line still has not completed 
I/O after 30 seconds, an error message is 
put to the console. 

IEC806I ENDING STATUS NOT RECEIVED FROM 
LINE XXX - LINE UNAVAILABLE 

If I/O has not completed on any of the 
remaining lines, a message is also sent for 
each line. 

If the line had completed I/O during the 
30- second interval, the test continues on 
the remaining lines. 

If I/O has completed on all lines, or 
after all messages have been written, an 
XCTL is taken to the next nonzero entry in 
the where-to-go table. If this routine is 
required again, a branch is taken to the 
beginning of the routine* 

For WTTA lines, the LCB fields are com- 
pleted as follows: 

1. The LCBTTIND field is updated with the 
offset of the associated TERM entry of 
the terminal table. If this entry 
does not exist, the program is ended 
with a dump. 

2. The LCBPOLPT field is updated with the 
address of the associated POLL macro 
instruction. 



OPEN DIRECT ACCESS MESSAGE QUEUE ROUTINE 
(CHART F4) 

Module Name : IGG0193O 

Function : This routine is entered from the 
system Open routine. The size of the DEB 
is calculated by adding the basic size,, 
appendage size,, and the size of the 
extents. This routine issues a GETMAIN for 
the DEB and initializes it. The terminal 
table address is obtained from the DCB and 
stored in the communications vector table. 
The Implementation module is loaded into 
main storage. For each device type and 
each extent, the routine determines the 
number of bytes required for each record 
(other than the first) on a track for this 
device. The number of records that will 
fit on each track is determined. 



Module Name: 



IGG0194A 



Function : This routine is entered by an 
XCTL from the Line Group Executor - Load 3 
routine. The time of day is obtained by 
the TIME macro instruction and saved in the 
routine. A test is made on each line to 
determine if I/O has completed. If I/O has 
not completed on a line, the time is 
obtained until there has been a 30-second 



If this is an OPEN for a checkpoint 
device, a test is made to ensure that the 
direct access data set has been opened. If 
it has not been opened, the program is 
ended abnormally. The module for 
checkpoint/restart (IGG019NH) is loaded by 
using the load subroutine in the Open 
module. The address of IGG019NH is stored 
in the Implementation module ( IGG019NG) and 
the terminal table address is stored in 
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IGG019NH. The track length and overhead 
value are saved in 1GG019NH. The number of 
tracks for the extent in the DEB is calcu- 
lated and stored in the DEB. The Open 
Checkpoint Records Data Set routine address 
is set in the where-to-go table. 

If this is not an OPEN for a checkpoint 
data set, the Direct Access-Load 2 address 
is set in the WTG table. 

If tnis routine is needed for another 
DCB, a branch is taken to the start of the 
routine. Upon completion, control is 
passed to the next nonzero entry in the 
where-to-go table via an XCTL. 



OPEN DIRECT ACCESS-LOAD 2 (CHART F5) 

Module Name ; IGG0193U 

Function ; Entered from the system OPEN,, 
this routine initializes the Implementation 
module with the TCB address, priority, and 
master receive switch. The message pro- 
cessing DEB chain is zeroed. For each ter- 
minal table entry that is not a distribu- 
tion list, the routine stores the address 
of the DASD destination STCB in the link 
field and priority in the send scheduler of 
the QCB. If the QCB is for a process 
queue, the DASD destination STCB address is 
set in the chain pointer of the STCB. If 
there are no more entries in the terminal 
table,, the relative record number available 
for the next segment is determined and 
stored in the Implementation module for 
placement in the QCB. The address of the 
first buffer is stored in the available 
buffer QCB, the IOB address in the DCB, and 
the DCB address in the IOB. 



A subroutine and STCB in this routine 
are moved into the OPEN work area. An STCB 
is set up for this subroutine. This STCB 
is posted to cause the subroutine to be 
activated. This subroutine obtains the 
address of IECKQQ01 (obtained from the base 
register set up as a result of the Qpost) 
and stores the address of the Implementa- 
tion module. 



If tne DSCBs in the chain have not been 
freed, a FREEMAIN is issued to free main 
storage for these DSCBs. 

If operator control has been specified 
in the terminal table, an address constant 
in the Implementation module is changed 
from the address of Buffer Recall/Cleanup 
routine to the address of Operator 
Awareness routine. For all the entries in 
the terminal table, the polling list 
address is obtained and tested for Auto 
Poll (bit 7 of the fourth byte is one). If 



this is an Auto Poll polling list, the 
polling characters and index bytes replace 
the offset value in the polling list. 

If the where-to-go table indicates that 
this routine is required again, the program 
is abnormally ended because there is only 
one DCB for the direct access device for 
message queues. Normal completion of the 
routine is an XCTL to the next nonzero 
entry in the where-to-go table of the sys- 
tem OPEN. 



OPEN CHECKPOINT RECORDS DATA SET ROUTINE 
(CHARTS F6 AND F7) 



Module Name; IGG0193V 



Function ; This routine is entered by an 
XCTL from the QTAM Open Direct Access Mes- 
sage Queue routine when a DD card specify- 
ing the checkpoint records data set is 
entered. The name of this DD statement 
must be TPCHKPNT. 

The first function performed is that of 
calculating the size of the checkpoint 
records. A scan of the terminal table pro- 
vides access to all control information to 
be counted. Included in the size are: 
each terminal table entry, each polling 
list* 11 bytes for each destination QCB,, 14 
bytes for each process QCB, and 11 bytes 
for each LCB. After the checkpoint record 
size has been computed, the total size and 
offsets to each type of data are saved in 
the Checkpoint routine for later use by 
that routine. 

A test is then made to determine if the 
disposition of the checkpoint records data 
set is old or new. If it is new f a four- 
byte control record is written in the first 
record of the data set. The data set is 
then further formatted by writing two com- 
plete dummy checkpoint records. Exit is 
then made via an XCTL. 

If the data set disposition is old, the 
four-byte control record is read from the 
disk to determine if a restart procedure 
should be initiated. If the first byte of 
the control record is zero, the checkpoint 
records data set was properly closed and no 
restart is necessary. The procedure 
described for formatting the data set is 
performed, and exit is made by an XCTL- 

If the first byte of the control record 
is nonzero, the checkpoint records data set 
was not properly closed. This indicates a 
system failure, and a restart procedure 
must be performed,. A GETMAIN macro is 
issued to obtain a work area into which is 
read the current checkpoint record. The 
control record contains an indicator as to 
which checkpoint record is the most recent. 
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The checkpoint record is then read from the 
disk into the work area. A scan through 
the terminal table is again used to locate 
the control blocks and tables that must be 
restored with the data contained in the 
checkpoint record. At this point,, the ter- 
minal table entries, polling lists,, and 
QCBs are restored with the data previously 
recorded in the checkpoint record. Restor- 
ing of the LCB data is deferred until the 
line groups are opened because the storage 
required for the LCBs is not obtained until 
that time. A code of X'F2' is set in the 
TERMTBL field of the Checkpoint module to 
indicate that a restart procedure has been 
initiated. Exit is then made via an XCTL,. 

All of the disk I/O operations initiated 
in this routine are accomplished via an 
EXCP/WAIT sequence. If an error occurs on 
any disk operation,, the job is terminated 
via an ABEND macro. If a checkpoint record 
cannot be contained on a single track, as 
many EXCP/WAIT sequences as are needed are 
issued to read or write the entire logical 
record. Linkage is generated to the Con- 
vert routine to convert a TTR to an actual 
DASD address. 

The checkpoint interval or number of 
CKREQ macros specified in the TERMTBL macro 
is stored in the Checkpoint module prior to 
giving up control via an XCTL. 



OPEN MESSAGE PROCESSING PROGRAM ROUTINE 
(INPUT AND OUTPUT) (CHART C4) 



Module Name: IGG0193P 



Function : This routine is entered from the 
system Open routine. If no TRMAD field has 
been specified in the DCB, the program is 
abnormally ended with a dump. An error 
code is set and the program is ended with a 
dump when any of the following conditions 
exist: 



The direct access device has not been 
opened. 



• A MS process queue DCB is being opened 
and the SOWA field has not been 
specified- 

• The DDNAME is not found in the terminal 
table. 

A GETMAIN for the DEB is issued for 144 
bytes,, and part of the DEB is initialized. 
The DEB is chained to the chain of process- 
ing program DEBs. If an MS process queue 
DCB is being opened, the routine sets up 
the QCB and BRB in main storage obtained 
for the DEB, If an MS destination queue 
DCB is being opened, the routine sets the 
priority and link address of the BRB in the 
DEB. The address of the Get or Put module 
is obtained according to the mode (message, 
record, or segment) „ and the Get or Put 
module is loaded. The basic part of the 
DEB is initialized. If the routine is 
required again, a branch is taken to the 
beginning of the routine; otherwise,, an 
XCTL is executed to the next nonzero entry 
in the where-to-go-table found in the sys- 
tem Open routine. 
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MESSAGE PROCESSING PROGRAM ROUTINES 



The Get and Put routines are in the par- 
tition that contains the message processing 
program. The expansion of these macro 
instructions is a system expansion, which 
branches to the QTAM routine. The remain- 
der of the macros are used to examine and 
to modify the status of the control pro- 
gram. The expansion of these macro 
instructions link to a corresponding rou- 
tine for the macro. 



GET MESSAGE ROUTINE (CHART C6) 



request another buffer; otherwise,, a zero 
is set in DEBSEGAD, data count is set in 
the work area, and return is made to the 
next instruction in the processing program. 
If the work area is filled, data remains in 
the buffer, and no SYNAD is specified, a 
zero is set in DCBSEGAD, data count is set 
in the work area, and return is made to the 
next instruction in the processing program. 
If the SYNAD is specified, the routine 
branches and links to the user's synchro- 
nous exit routine before returning. 



Module Name ; IGG019NB 

Function ; The Get Message routine is 
entered by the system expansion of a GET 
macro, which obtains the address of the Get 
module from the DCB specified in the GET 
macro. If this is the first entry for a 
process queue, the routine posts a dummy 
buffer (in DEB) to the return buffer queue. 
If this is not the first entry,, or upon 
returning from the POST, the routine checks 
for the inclusion of EODAD Dy the user. If 
it has been specified and the disk is not 
in the process of reading, a test is made 
for a dummy last element. If there are no 
more messages in the MS process queue, the 
routine branches and links to the user's 
exit address. 

If EODAD was not specified, or the disk 
was in the process of reading, or there are 
messages in the MS process queue, the rou- 
tine obtains the address of the work area. 
If this is not the first entry, the routine 
posts the previously used buffer to the 
return buffer queue. Upon returning from 
the post, or if this is the first entry, 
the routine issues a Qwait to obtain the 
next buffer. 

If it is a header segment, the address 
of the source area is obtained. If the 
prefix indicates a process queue, the area 
specified by the TRMAD operand is cleared. 
The terminal ID is moved into the user's 
area. 

If a header or text segment (but not the 
last segment) and the buffer is empty, the 
routine branches back and obtains another 
buffer. If the buffer is empty and it is 
the end of message, a zero is set in DCBSE- 
GAD, data count is set in the work area, 
and return is made to the next instruction 
in the processing program. If the buffer 
is smaller than or equal to the work area, 
a test is made for end of message. If it 
is not end of message,, a branch is taken to 



GET RECORD ROUTINE (CHART C7) 



Module Name ; IGG019NC 

Function ; The Get Record routine is 
entered by the system expansion of a GET 
macro, which obtains the address of the Get 
module from the DCB specified in the GET 
macro. If this is the first entry for a 
process queue, the routine posts a dummy 
buffer (in DEB) to the return buffer queue. 
If this is not the first entry, or upon 
returning from the POST, the routine checks 
for the inclusion of EODAD by the user. If 
it has been specified and the disk is not 
in the process of reading, a test is made 
for a dummy last element. If there are no 
more messages in the MS process queue, the 
routine branches and links to the user's 
exit address. 

If EODAD was not specified, or the disk 
was in the process of reading, or there are 
messages in the MS process queue, the rou- 
tine obtains the address of the work area. 
If this is not the first entry, the routine 
posts the previously used buffer to the 
return buffer queue. Upon returning from 
the post or if this is the first entry, the 
routine issues a Qwait to obtain the next 
buffer. 

If it is a header segment, the address 
of the source area is obtained. If the 
prefix indicates a process queue* the area 
specified by the TRMAD operand is cleared. 
The terminal ID is moved into the user's 
area. 

If the segment is not the last and the 
buffer is empty, the routine branches back 
to obtain another buffer. If the buffer is 
empty and it is the end of a message, the 
data count is set in the work area, and 
return is made to the next instruction in 
the processing program. 
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Each character is moved into the work 
area, if space is available. If there is 
no space available and SYNAD is specified, 
the count is stored in the work area. The 
program branches and links to the user's 
synchronous exit routine before returning 
to the next instruction in the processing 
program. If SYNAD is not specified, the 
count is stored in the work area, and the 
routine returns to the next instruction in 
the processing program. Each character in 
the buffer is checked for new line (NL), 
end of olock (EOB) , or start of text (STX 
for 2260). If the character is an NL„ EOB,, 
or STX, all consecutive NLs, EOBs, or STXs 
are moved into the work area, the count is 
stored in the work area, and the routine 
returns to the next instruction in the pro- 
cessing program. If the buffer is empty 
and it is not an end of message, the rou- 
tine branches to request another buffer. 
If the buffer is empty and it is an end of 
message, the data count is stored in the 
work area, and the routine returns to the 
next instruction in the processing program. 



GET SEGMENT ROUTINE (CHART C5) 

Module Name : IGG019NA 

Function : The Get Segment routine is 
entered by the system expansion of a GET 
macro, which obtains the address of the Get 
module from the DCB specified in the GET 
macro. If this is the first entry for a 
process queue, the routine posts a dummy 
buffer (in DEB) to the return buffer queue. 
If this is not the first entry or upon 
returning from the POST, the routine checks 
for the inclusion of EODAD by the user. If 
it has oeen specified and the disk is not 
in the process of reading, a test is made 
for a dummy last element. If there are no 
more messages in the MS process queue, the 
routine branches and links to the user's 
exit address. 

If EODAD was not specified, or the disk 
was in the process of reading*, or there are 
messages in the MS process queue, the rou- 
tine obtains the address of the work area. 
If this is not the first entry, the routine 
posts tne previously used buffer to the 
return buffer queue. Upon returning from 
the post, or if this is the first entry, 
the routine issues a Qwait to obtain the 
next buffer. 

If it is a header segment, the address 
of the source area is obtained. If the 
prefix indicates a process queue, the area 
specified by the TRMAD operand is cleared. 
The terminal ID is moved into the user's 
area. 

If the buffer is empty, the data count 
is stored in the work area, and return is 



made to the next instruction in the pro- 
cessing program. If the buffer is not 
empty, the segment is moved to the work 
area. If all the data in the buffer has 
been moved, the data count is stored in the 
work area and return is made to the next 
instruction in the processing program. 

If the work area is filled and data is 
left in the buffer, a check is made for 
SYNAD specification. If SYNAD is not spec- 
ified, the routine returns to the next 
instruction in the processing program; if 
specified, it branches to the user's syn- 
chronous exit routine before returning. 



PUT MESSAGE ROUTINE (CHART DA) 



Module Name : IGG019NE 

Function : The Put Message routine is com- 
posed of two parts. The first section is 
entered by a branch and link from the sys- 
tem macro expansion* which obtained the 
address from the DCB specified. This sec- 
tion sets priority for the BRB and sets a 
new entry switch. 

The following error codes are set in 
register 15 when an error is detected. 

1. Bit 26 is set to 1 for an invalid ter- 
minal name. 

2. Bit 27 is set to 1 for wrong length 
specified. 

If any error flags are set,, return is made 
to the next instruction in the processing 
program. The routine then issues a Qpost 
to request a new buffer from the active BRB 
queue,, waits for the buffer, and posts the 
buffer to the destination queue. If there 
is any more data in the work area,, the rou- 
tine branches back to request a new buffer; 
otherwise, it returns to the next instruc- 
tion in the processing program. 

The second section of the routine is 
entered by a branch from the Buffer BRB 
routine. If this is the first PUT for this 
buffer, a new entry is set and the buffer 
size is loaded. For every request, a is 
set in the source key (TTSKEY) in the pre- 
fix to show a process queue. If this is a 
header segment., the sequence number is 
zeroed and the scan pointer in the prefix 
is set to the number of idle characters in 
the header. If the user has specified 
priority, that priority is taken from the 
work area and placed in the DEB; otherwise,, 
a blank is set for the priority. The off- 
set to the terminal entry is stored in the 
TTDKEY field, and the EOM header bit is set 
in MSTATUS field of the prefix. 
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For a text segment, the EOM bit is set 
in the MSTATUS field of the prefix. For a 
header or text segment, the length of the 
buffer is compared with the work area,. If 
the work area is larger than the buffer, 
the EOM bit in MSTATUS is turned off and 
the buffer length is used to move the data 
from the work area into the buffer. The 
work area length is used for the data move 
if the work area is smaller than the" buf- 
fer. If there is more data to move, the 
work area pointer is updated before branch- 
ing to the Interim LPS routine to post the 
buffer to the MS destination queue. 



PUT RECORD ROUTINE (CHART C9) 



Module dame : IGG019NF 

Function : The Put Record routine is com- 
posed of two parts. The first section is 
entered by a branch and link from the sys- 
tem macro expansion, which obtained the 
address from the DCB specified in the PUT 
macro. This section sets priority for the 
BRB and sets a new entry switch. 

The following error codes are set in 
register 15 when an error is detected. 

1. Bit 26 is set to 1 for an invalid ter- 
minal name. 

2. Bit 27 is set to 1 for a wrong length 
specified. 

3. Bit 25 is set to 1 for invalid 
sequence; that is, if this is the last 
segment and the next segment is not a 
header, or if this is not the last 
segment and the next segment is a 
header (other than the first time). 

If any error flags are set, return is made 
to the next instruction in the processing 
program. 

The routine then issues a Qpost to re- 
quest a new buffer from the active BRB 
queue, and waits for this buffer. If a 
buffer address has been saved, use this 
buffer and save the address of the new buf- 
fer. The Put Record routine issues a Qwait 
to wait for the BRB to be removed from the 
ready queue. If the buffer is full, the 
routine posts the buffer to the DASD 
destination queue. If there is more data 
to be moved, this routine branches to re- 
quest a new buffer. If no more data is to 
be moved, or the buffer is not full, it 
switches buffer addresses with the saved 
buffer. If there is an extra buffer, the 
unused buffer is posted to the free buffer 
queue before return is made to the next 
instruction in the message processing 
program. 



The second section of the routine is 
entered by a branch from the Buffer BRB 
routine. If this is the first PUT request 
for this buffer, a new entry is set, the 
buffer size is loaded, and the buffer save 
area is zeroed* The present buffer is 
saved for every PUT request if no buffer is 
left over from a previous PUT. The LCB 
address , source key, and text indicator are 
placed in the prefix. 

If this is the start of the work area 
and a header segment, the sequence number 
is zeroed and the scan pointer in the pre- 
fix is set to the number of idle characters 
in the header. If the user has specified 
priority, that priority from the work area 
is placed in the DEB; otherwise, a blank is 
set for the priority* The offset to the 
terminal entry is stored in TTSKEY field of 
the prefix. 

For a text or header segment and not the 
start of a work area, the length of the 
buffer and the work area are compared if 
the buffer has been filled. If the buffer 
is larger than the work area, the length of 
the work area is used to move the data; 
otherwise, the buffer length is used. The 
data is moved from the work area to the 
buffer and the data count is set in the 
prefix. If data is left in the work area, 
the address of the next character in the 
work area is obtained. If no data is left 
in the work area and it is the end of mes- 
sage, the EOM is set before the address of 
the next character is obtained. 

If a buffer is left over from the pre- 
vious PUT, the extra buffer address is 
stored. If this is not a text segment, the 
EOM is set in MSTATUS. The switch is set 
to indicate that no buffer is left over. 
If a buffer has been saved, the saved buf- 
fer and present buffer are exchanged. The 
routine exits to the Interim LPS routine in 
the Implementation module to post the buf- 
fer to the MS destination queue. 



PUT SEGMENT ROUTINE (CHART C8) 



Module Name; 



IGG019ND 



The Put Segment routine is composed of 
two parts. The first section is entered by 
a branch and link from the system macro 
expansion, which obtains the address from 
the DCB specified in the PUT macro. 

The following error codes are set in 
register 15 when an error is detected. 

1. Bit 26 is set to 1 for an invalid ter- 
minal name. 
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2. Bit 27 is set to 1 for a wrong length 
specified. 

3. Bit 25 is set to 1 for invalid 
sequence; that is,, if this is the last 
segment and the next segment is not a 
header, or if this is not the last 
segment and the next segment is a 
header (other than the first time) • 

If any error flags are set, return is made 
to the next instruction in the processing 
program. 

Otherwise,, the Put Segment routine sets 
priority for the BRB, and issues a Qpost to 
request a new buffer from the active BRB 
queue, waits for the buffer, and then posts 
the buffer to the DASD destination queue. 
The routine waits for the BRB to be removed 
from the ready queue, and returns to the 
next instruction in the processing program. 

The second part of the routine is 
entered by a branch from the Buffer BRB 
routine. This section of the routine moves 
the LCB address in the MSLCB field, moves 
the message type in the work area to the 
MSTATUS field, and zeros (shows process 
queue) into the TTSKEY field of the prefix. 
If it is a header, the message sequence 
number is set to zero,, and the scan pointer 
in the prefix is set to the number of idle 
characters in the header. The header is 
moved in the buffer. If the user has spec- 
ified priority, that priority is placed 
from the work area into DEB; otherwise, the 
priority is set to a blank. The offset to 
the terminal entry is stored into TTDKEY 
field (destination key) of the prefix. For 
a text segment, the text is iroved into the 
buffer. For a header of text segment* the 
segment size is stored in the MSEGSZE field 
of the prefix. The routine exits to the 
Interim LPS routine in the Implementation 
module to post the buffer to the MS 
destination queue. 



CHANGE POLLING LIST ROUTINE (CHART CD) 

Function ; This routine sets up the DCB 
base with the DCB address given in the 
macro. If the terminal name is specified, 
the macro expansion has branched to 
IECKDCBL to find the address of the DCB. 
If the DCB specified has not been opened, 
an error code of hex • 01 f is set in regis- 
ter 15, and return is made to the next 
instruction in the processing program. If 
the relative line number specified is too 
high, an error code of hex "08' is set in 
register 15, and return is made to the next 
instruction in the processing program. If 
character number is specified in the third 
operand of the macro, the numerics are 
moved into the STATUS field of the polling 
list by the Cross Partition Move routine. 



If the third operand is an address, the 
length of the new polling list is compared 
to the present one. If they are not equal, 
an error code of hex ' 10" is placed in reg- 
ister 15, and return is made to the next 
instruction in the processing program. 
Otherwise, the routine obtains the address 
of QMOVE and posts the QCB to itself to 
execute the move. The new polling list in 
the area specified is moved to the address 
of the polling list area.. A normal comple- 
tion code of hex '00' is placed in register 
15 before return is made to the next 
instruction in the processing program. 

Itodule Name : IECKCHPL 

Entry Point : Expansion of the CHNGP macro 
instruction generates a BALR to the routine 
at IECKCHPL,, using register 15 as the 
branch address register and register 14 as 
the return register. Parameter register 
passes to the routine the address of the 
DCB with the relative line number in the 
high-order byte. Parameter register 1 con- 
tains the address of the area that contains 
the new polling list of the character num- 
ber, either or l w which results in deac- 
tivation or activation of the polling list, 
respectively. 

External Routines Used : 

• Qpost (IGC067 in module IECKQQ01) 

• Cross Partition Move (QMOVER +6 in 
module IGG019NG) 



CHANGE TERMINAL TABLE ROUTINE (CHART CB) 

Function : The terminal name specified in 
the macro is compared with each TERMID 
field in the terminal table. If the termi- 
nal entry specified is not found in the 
terminal table, an error code of hex '20' 
is set in register 15, and return is made 
to the next instruction in the processing 
program. When the entry is found, the 
length of the entry is compared to that of 
the present entry,. If the size specified 
in the work area is net equal to the size 
in the terminal table, an error code of hex 
'10' is set in register 15, and return is 
made to the next instruction in the pro- 
cessing program. 

If the QCB from the terminal table is 
not a destination queue or a STOPLN has 
been issued* the move data QCB is posted to 
itself to execute the move. The new entry 
from the work area is moved into the speci- 
fied entry of the terminal table,. If the 
QCB is a destination queue and a STOPLN has 
not been issued, the change is made in two 
moves, leaving the new sequence number. 
Because the sequence numbers may have been 
incremented after the entry was copied into 
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the work area, the old sequence numbers are 
not changed. Return is made to the next 
instruction in the processing program. 

Module Name ; IECKCHGT 

Entry Point ; Expansion of the CHNGT macro 
instruction generates a BALR to the routine 
at IECKCHGT, using register 15 as a branch 
address register. Parameter register 
contains the address of the work area. 
Parameter register 1 passes to the routine 
the address of the name of the entry in the 
terminal table. 

E xternal Routines Used ; 

• Qpost (IGC067 in module IECKQQ01) 

• Cross Partition Move (QMOVER + 6 in 
module IGG019NG) 



CHECKPOINT REQUEST ROUTINE (CHART C3) 

Func tion ; This routine initiates a request 
for a checkpoint record to be written on 
the checkpoint records data set. 

If any of the following error conditions 
are detected, the request is ignored and 
return is made to the calling program with 
an error code in register 15, 
right-adjusted . 

1. QTAM message queues data set not 
opened (error code = X'01'). 

2. A checkpoint interval was specified in 
the CKITV operand of the TERMTBL macro 
(error code = X'02'). 

3. Checkpoint records data set not opened 
(error code = X'04') . 

If no errors are detected, a checkpoint 
is requested by Qposting the passed ECB to 
the checkpoint request queue. An SVC WAIT 
is then issued to wait for the checkpoint 
to be taken. Return is made to the calling 
program. 

Note ; The checkpoint record is not written 
until the number of message processing par- 
titions specified in CKPART operand of the 
TERMTBL macro have initiated checkpoint 
requests. 

Module Name ; IECKCKRQ 

Entry Point ; Expansion of the CKREQ macro 
instruction generates a BALR to the routine 
at IECKCKRQ, using register 15 as the 
branch address register and register 14 as 
the return register. Upon entry, parameter 
register 1 contains the address of an event 
control block (ECB) representing the check- 
point request from this partition. 



External Routines Used ; 

• Qpost (IGC067 in IECKQQ01) 

• WAIT (SVC 1) 

CLOSE MESSAGE CONTROL ROUTINE (CHART ED) 

Function ; This routine is entered for a 
complete closedown. To turn off the master 
receive switch, the routine sets up for the 
Cross Partition Move routine by placing the 
address of the master receive switch and 
the mask in registers 4 and 5, respective- 
ly. The routine posts the move data QCB to 
itself; the Move Data subtask moves the 
mask to turn off the master receive switch. 

The TCB for message control is used to 
obtain the DEB chain. For each DEB on the 
chain, the associated DCB is refered to. 
If the DCB is not for a communications 
line, the next DEB is obtained. If the DEB 
is for a line, each LCB is obtained. If 
the line for that LCB is active, the rou- 
tine issues a STOPLN macro instruction to 
stop the line. The STARTLN macro is then 
issued to put out all messages. Only the 
lines for output will be started because 
the master receive switch has been turned 
off. If the line is not active, the next 
LCB is obtained. When the end of the DEB 
chain is reached, the routine returns to 
the next message processing program 
instruction. The net effect is that all 
input lines to the system are stopped, 
while line output operations continue as 
normal. 

Module Name ; IECKCLOS 

Entry Point ; Expansion of the CLOSE MC 
macro instruction generates a BALR to the 
routine at IECKCLOS, using register 15 as 
the branch address register and register 14 
as the return register. 

External Routines Used ; 

• Qpost (IGC067 in module IECKQQ01) 

• Line Change (in module IECKLNCH) 

• Cross Partition Move (QMOVER + 6 in 
module IGG019NG) 



COPY TERMINAL TABLE ROUTINE (CHART CG) 

Function ; After saving the registers, the 
routine obtains the address of the terminal 
table from the communications vector table. 
The terminal table is searched for the name 
of the entry specified in the macro. If no 
entry of the specified name is found or the 
entry size is zero, an error code of a hex 
'20' is placed in register 15. When the 
name is found, the table is moved to the 
work area specified in the macro, and a 
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normal completion code of hex '00' is 
placed in register 15. After restoring 
registers, the routine returns to the next 
processing program instruction. 

Module Name ; IECKCPYT 

Entry Point ; Expansion of the COPYT macro 
instruction generates a BALR to the routine 
at IECKCPYT, using register 15 as a branch 
address register and register 14 as a 
return register. Parameter register con- 
tains the address of the work area speci- 
fied in the macro. Register 1 contains the 
address of a location containing the termi- 
nal name. 



External Routines Used: 



None 



placed in register 15. If there was no 
error, the routine returns a hex '00 f in 
register 15. The routine restores regis- 
ters and returns to the next LPS 
instruction. 



Module Name; 



IECKCPYQ 



Entry Point ; Expansion of the COPYQ macro 
instruction generates a BALR to the routine 
at IECKCPYQ, using register 15 as a branch 
address register and register 14 as a 
return register. Parameter register con- 
tains the address of the work area speci- 
fied in the macro. Parameter register 1 
passes, to the routine, the address of a 
location that contains the terminal name. 

External Routines Used; None 



COPY POLLING LIST ROUTINE (CHART CO 

Function ; After saving the registers, the 
routine obtains the size of the polling 
list, using the relative line number and 
the address of the DCB specified in the 
macro. If the terminal name is specified, 
the macro expansion has branched to 
IECKDCBL to find the address of the DCB. 
If the DCB has not been opened, an error 
code of hex '01' is set in register 15, and 
return is made to the next instruction in 
the processing program. If the relative 
line number is too high, an error code of 
hex '08' is set in register 15, and return 
is made to the next instruction in the pro- 
cessing program. The polling list is moved 
into the work area specified in the macro. 
Registers are restored before return is 
made to the next instruction in the pro- 
cessing program. 

Module Name ; IECKCPPL 

Entry Point ; Expansion of the OOPYP macro 
instruction generates a BALR to the routine 
at IECKCPPL, using register 15 as the 
branch address register and register 14 as 
the return register. Parameter register 
passes, to the routine, the address of the 
DCB specified in the macro plus four times 
the relative line number. Register 1 con- 
tains the address of the work area that 
contains the new polling list. 

External Routines Used; None 



COPY QUEUE CONTROL BLOCK ROUTINE (CHART CE) 

Function: After saving the registers, the 
routine searches the terminal table for the 
name of the terminal specified in the 
macro. Upon obtaining the address of the 
QCB from the terminal table, the queue of 
32 bytes is moved into the area specified 
by the macro. If the terminal entry is not 
found, an error code of a hex '20' is 



LOCATE DCB ROUTINE (CHART BW) 

Function : The routine obtains the maximum 
size of the terminal name. If the speci- 
fied terminal name is not in the terminal 
table, an error code of hex '20' is set in 
register 15 and return is made to the macro 
expansion. If the terminal name is found, 
the QCB address is obtained from the termi- 
nal entry. If this is a list or process 
entry, an error code of hex ' 20 f is set in 
register 15 and return is made to the macro 
expansion. If it is not a list or process 
entry, the DCB address is obtained from the 
QCB and placed in register 0. The relative 
line number is inserted in the high-order 
byte. The normal exit code of hex '00' is 
set in register 15 and return is made to 
the macro expansion. 

Module Name : IECKDCBL 

Entry Point ; This routine is entered via a 
BALR from the macro expansion of STOPLN, 
STARTLN, COPYP, or CHNGP. The address of 
the terminal name is passed in parameter 
register 1. 

External Routines Used: None 



RELEASE INTERCEPTED MESSAGE ROUTINE (CHART 
BZ) 

Functio n: Each TERMID field of the termi- 
nal table is compared with the specified 
terminal name, until there is an equal com- 
pare. If the name is not found in the ter- 
minal table* the routine returns to the 
next instruction in the processing program 
with an error code of hex '20' in register 
15. If the entry is found, the TSTATUS 
field is tested. If the "intercept" bit is 
not on, return is made to the next instruc- 
tion in the processing program with a code 
of hex •04' in register 15. If the inter- 
cept bit is on, indicating that messages 
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may have been intercepted, the address of 
the INTERCPT field is obtained from the LPS 
routine. 

If the message header address in the 
INTERCPT field is greater than the message 
address in queue, a priority message has 
been intercepted. The "intercept" bit is 
reset to zero, the "send" bit is set on, 
and return is made to the next instruction 
in the processing program with the code of 
hex '00" in register 15 for normal comple- 
tion. If the header address is less than 
the address in queue, the header address of 
the intercepted message is inserted (using 
Cross Partition Move routine) as the first 
message to be released. This is done by 
posting the move data QCB to itself. The 
"intercept" bit is reset to zero, the 
"send" Dit is set on, and return is made to 
the next instruction in the processing pro- 
gram with a code of hex '00' in register 15 
for normal completion. 

Module flame ; IECKRELM 

Entry Point : Expansion of the RELEASEM 
macro instruction generates a BALR to the 
routine at IECKRELM, using register 15 as 
the branch address register and register 14 
as the return register. Register 1 is the 
parameter register, which passes the 
address of the terminal name to the 
routine. 

External Routines Used : 

• Cross Partition Move (QMOVER+6 in 
module IGG019NG) 

• Qpost (IGC067 in module IECKQQ01) 



RETRIEVE - DASD ROUTINE (CHART CI) 

Function : This routine causes a message 
segment to be retrieved by direct access 
address from the DASD destination or pro- 
cess queues, and to be placed into the work 
area. The routine saves registers and sets 
up addressability. If an invalid disk 
address is received, an error code of hex 
"02" is set in register 15, and return is 
made to the next instruction in the pro- 
cessing program. 

A combination BRB and QCB is built in 
the user's work area. The routine stores 
the address of the STCB, queue -insert- by- 
priority, into the QTRAN field. It stores 
the direct access address in the BRB as the 
relative record address of the next segment 
to be read. The routine then sets the 
MSTATUS field equal to 9 in the BRB and 
sets priority in the QPRI field to a hexa- 
decimal 'E4'. The routine posts the BRB/ 
QCB to the disk queue, and waits for disk 
completion. Another Qwait is issued to 



ensure that the BRB/QCB is off the ready 
queue so that the work area can be used. 
The message is moved into the work area 
specified by the user. The buffer is 
returned by posting the buffer to the 
available buffer queue. The registers are 
restored and return is made to the next 
instruction in the processing program. 



Module Name: 



IECKRETD 



Entry Point : Expansion of the RETRIEVE 
macro instruction generates a BALR to the 
routine at IECKRETD, using register 15 as 
the branch register and register 14 as the 
return register. Registers and 1 are 
used as parameter registers. Register 
contains the work area specified by the 
user, and register 1 contains the relative 
record address of the message segment to be 
retrieved. 

External Routines Used : 

• Qwait (IGC06 5 in module IECKQQ01) 

• Qpost (IGC067 in module IECKQQ01) 



RETRIEVE BY SEQUENCE NUMBER ROUTINE (CHART 
C2) 

Function : This routine causes a message 
segment to be retrieved and placed in a 
work area specified by the user. After 
saving registers and setting up addressa- 
bility, the terminal table address is 
obtained from the CVT. The terminal table 
is searched for the destination named in 
the operand of the macro instruction. If 
the name of the destination is not found, 
an error code of a hexadecimal '20' is 
placed in register 15, and return is made 
to the next instruction in the processing 
program. If the name is found, the offset 
of the entry from the start of the terminal 
table is saved* and the destination queue 
address is obtained from the terminal table 
entry. 

The routine branches to the Retrieve 
DASD routine passing in register 1 the 
direct access address of the message (a 
negative address indicates sequence in and 
a positive address indicates sequence out) 
and in register the address of the work 
area. 

The Retrieve DASD routine retrieves the 
next segment of the message and places it 
in the work area. If the direct access 
address is zero, an error code of hexadeci- 
mal •40" is placed in register 15, and 
return is made to the next instruction in 
the processing program. If the sequence 
number specified by the macro instruction 
is greater than the sequence of the re- 
trieved message or it was a priority mes- 
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sage, the next message is obtained by the 
Retrieve DASD routine,. If the sequence 
number of the retrieved message is larger 
than the one specified, an error code indi- 
cating invalid sequence of hexadecimal '40' 
is set in register 15. Return is made to 
the next instruction in the processing pro- 
gram. If the correct message is retrieved 
and registers are restored,, return is made 
to the next instruction in the processing 
program with a hexadecimal '00* set in reg- 
ister 15- 



Module Name: 



IECKRETS 



Entry Point : Expansion of the RETRIEVE 
macro instruction generates a BALR to the 
routine at IECKRETS, using register 15 as 
the branch address register and register 14 
as the return register. Register is used 
as a parameter register. It contains the 
address of the work area into which the 
message segment is to be placed. 



External Routines Used: Retrieve DASD (in 



module IECKRETD) 



START LINE - STOP LINE ROUTINE (CHART BX) 

Function : This routine sets up the DCB 
base with the DCB address given in the 
macro. If the terminal name is specified, 
the macro expansion has branched to 
IECKDCBL to find the address of the DCB. 
If the DCB has not been opened, an error 
flag of hex" 01' is set in register 15, and 
return is made to the next instruction in 
the processing program,. If the relative 
line number is greater than the number of 
lines,, an error code of hex *08' is set for 
invalid relative line number, and return is 
made to the next instruction in the pro- 
cessing program. 

For each line to be stopped or started, 
the associated LCB is obtained. If the 
routine was entered for a Start Line and is 
not active,, the operation codes for the SAD 



and Enable commands, needed for starting a 
line, are stored in the QCB/STCB,. Unless 
there is a type III adapter, 2 260,, or 
switched connection,, an Enable operation 
code is set. Otherwise, NOP is set in the 
QCB. The LCB is posted to the queue QCB to 
enter the subtask in the routine- 

If the routine is for a stop line, the 
UCB address for the line is obtained. If 
the line is a dial line or a WTTA line and 
is not in active transmission, a Halt I/O 
is issued to disable the line. If it is in 
active transmission* a Qwait is issued to 
wait for the line to become inactive. For 
an autopolled line, the line is stopped by 
causing the TIC after the second Poll CCW 
to be replaced with a NOP. The move data 
QCB is posted to itself to cause the NOP to 
replace the TIC across partitions. If 
there are no more lines to change, the 
normal exit code of hex , 00' is set in reg- 
ister 15, and return is made to the next 
instruction in the processing program. 

The Queue routine associated with the 
queue subtask is in this module. This rou- 
tine takes the Op code set in the Start 
line-Stop Line routine and places it in the 
channel program area. A flag is set in the 
LCBCPA +"32 field of the LCB so that Line 
SIO Appendage will give control to ERP at 
completion. An EXCP is issued for the 
line. Upon return, the routine exits to 
Qdispatch subroutine in IECKQQ01- 



Efodule Name : IECKLNCH 

Entry Point : Expansion of the STOPLN or 
STARTLN macro instruction generates a BALR 
to the routine IECKLNCH,, using register 15 
as the branch address register and register 
14 as the return register. Parameter reg- 
ister passes to the routine the relative 
line number in the high-order byte and the 
DCB address in the three low-order bytes. 

External Routines Used : 

• Qpost (IGC067 in module IECKQQ01) 

• Qwait (IGC065 in module IECKQQ01) 
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QTAM CONTROL MODULE SUBROUTINES 



The QTAM control module (module IECKQQ01) , 
consisting of nine subroutines, is included 
in the supervisor nucleus as a resident 
routine at system generation. 



ENTRY INTERFACE SUBROUTINE 

This subroutine performs initialization 
for the QTAM control program. It is 
entered from the first-level Interrupt 
Handler (FLIH) of the supervisor whenever a 
QTAM supervisor call (Qwait or Qpost) is 
issued. 

Associated with each entry to the Entry 
Interface subroutine is a supervisor- 
created supervisor request block (SVRB); 
the SVRB is converted to a subtask control 
block (STCB) . One otherwise unused word in 
the SVRB is zeroed and is later used as an 
event control block (ECB) for controlling 
the dispatching of its associated subtask. 

The "new" STCB is placed at the head of 
the STCB chain of the QCB for the last dis- 
patched queue (i.e., the queue from which 
QTAM last activated a subtask) . The sub- 
routine then exits to the Qwait or the 
Qpost subroutine, depending on which SVC 
was issued. 



QTAM POST (QPOST) SUBROUTINE 

The Qpost subroutine places the address 
of the QCB named by the calling routine 
into the QCB address field of the specified 
resource element control block (this is the 
means by which an element becomes asso- 
ciated with a QCB) . The subroutine then 
branches to the Priority Search subroutine 
to cause the element to be placed on the 
ready queue in priority order. 



highest-priority subtask is "not wait- 
ing" ), f the Qwait subroutine makes no 
further disposition* but branches 
immediately to the Defer Entry subrou- 
tine at UNAVAIL,. Reasons for this 
branch are explained in the discussion 
of that subroutine. 



2. If the new QCB has an element avail- 
able on its element control block 
chain, the STCB remains linked into 
the QCB (the "old" QCB) that had been 
selected by the Entry Interface sub- 
routine. The Qwait subroutine then 
branches to the Exit Select subroutine 
at RETURNX. This causes the address 
of the element found on the element 
chain of the new QCB to be placed in 
the calling routine's parameter regis- 
ter, which is itself stored in the 
save area of the STCB. The net effect 
is that at the time the subtask is 
activated, it appears in the STCB 
chain of the Qattach QCB, or the STCB 
chain of the dispatched (old) QCB; the 
element chain from which it is drawing 
elements,, however, is that of the QCB 
specified by the calling routine 
(i-e., the new QCB). This action 
insures immediate satisfaction of the 
wait condition when the requested ele- 
ment is available. 



If the new QCB has no elements avail- 
able, but the last dispatched queue 
(old QCB) and the queue specified by 
the calling routine (new QCB) are the 
same, the STCB is already chained into 
the correct QCB and that QCB is al- 
ready waiting on the ready queue. The 
Qwait subroutine branches to the Qdis- 
patch subroutine. 



QTAM WAIT (QWAIT) SUBROUTINE 

When the Qwait subroutine is entered, 
the STCB representing reentry to the call- 
ing routine (when the wait condition is 
satisfied) has already been chained into a 
QCB by the Entry Interface subroutine. The 
Qwait subroutine determines what further 
disposition should be made, based on cur- 
rent conditions, to schedule the subtask 
for activation. Four sets of conditions 
determine the disposition: 

1. If the QCB into which the STCB has 

been chained (i.e„, the user-specified 
or "new" QCB) has a key of 2 (the 



If the new QCB has no elements avail- 
able and is not the QCB for the last 
dispatched queue, the STCB must be 
linked into the STCB chain of the new 
QCB; therefore, the Qwait subroutine 
branches to the Defer Entry subroutine 
at UN AVAIL. 



The Wait subroutine is also entered at a 
special entry point, UNAVAIL-6,, by the BRB 
Ring and Send Scheduler routines in the 
Implementation module.. The purpose is to 
determine if the last dispatched QCB and a 
QCB specified by the calling routine are 
the same. 
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DEFER ENTRY SUBROUTINE 

This subroutine causes entry to a sub- 
task to be deferred. When a control sub- 
routine encounters an STCB for a subtask 
that cannot be activated, a branch to the 
Defer Entry subroutine is taken; this sub- 
routine causes the STCB to be removed from 
the position at which it was encountered 
and linked into the appropriate STCB chain. 
After retrieving the pointer to the STCB 
from the location where it was encountered 
and restoring that location to its former 
state, the Defer Entry subroutine branches 
to the Priority Search subroutine; this 
causes the STCB to be placed, by priority 
order, into the STCB chain of the QCB spec- 
ified by the calling routine. 

An exception arises if the key of the 
QCB specified by the calling routine is 2. 
This condition indicates that the highest- 
priority subtask on the QCB's STCB chain is 
a ready subtask (not waiting for elements) 
and is ready to receive control. The STCB 
being processed, however, is not ready; if 
it is of higher priority than the ready 
subtask,, it cannot be placed at the head of 
the STCB chain without preempting the 
"ready" status that applies to the current 
top STCB, and that STCB should be honored 
first for maximum efficiency. Therefore, 
the Defer Entry subroutine enters the 
Priority Search subroutine Dy a path that 
ensures that the new STCB is enqueued by 
priority order below the current top STCB. 



PRIORITY SEARCH SUBROUTINE 

This is a generalized subroutine that 
determines the position within a chain that 
an item should assume in order to be in 
correct priority sequence; items in the 
chain are arranged in descending order of 
priorities from the top of the chain. This 
subroutine acts on all chains including the 
ready queue. 

The subroutine examines each item on the 
chain until it finds either an item with 
lower priority than that of the search 
argument,, or the last item on the chain 
(signalled by priority 255). When either 
condition is met, the subroutine exits to 
the Queue Insert subroutine. 



QUEUE INSERT SUBROUTINE 

This is a generalized subroutine that 
links items into a chain; it is applied to 
all chains including that of the ready 
queue. When this subroutine is entered, a 
register contains a pointer to the link 
address portion of the item at the point in 
the chain at which the new item is to be 
inserted; a second register holds the 



address of the item to be inserted. (The 
point of insertion is the head of the chain 
except when this subroutine is entered from 
the Priority Search subroutine, which 
selects the insertion point according to 
the item's priority.) The subroutine 
places the old link address in the new 
item, replaces the old link address with 
the new item's address, and exits to the 
Qdispatch subroutine. 



QDISPATCH SUBROUTINE 

This subroutine performs the primary 
internal management function within QTAM, 
except for those cases in which another 
subroutine is able to determine the next 
subtask to be activated (e.g., when the 
Qwait subroutine finds that elements are 
already available to a subtask requesting 
elements and that the Qdispatch subroutine 
can be bypassed) . The Qdispatch subroutine 
maintains continuity by receiving control 
from a completed subtask and by selecting 
another subtask that is to receive control. 

The Qdispatch subroutine examines the 
item at the head of the ready queue and 
takes one of four courses of action, 
depending on the type of item encountered. 
Items that can appear on the ready queue 
are: 

1. Queue control blocks for which the 
highest-priority subtask is not wait- 
ing for elements (QCB key is 2). 

2. Queue control blocks waiting for ele- 
ments (QCB key is 3). 

3. Resource element control blocks con- 
taining the address of the QCB to 
which the eleirent has been posted 
(RECB key is 0). 

4. Full subtask control blocks for which 
the key value is also zero. The first 
word of a full STCB contains the 
address of the Qattach QCB. 

The effect of the appearance of each 
type of item at the head of the ready queue 
is described in the following paragraphs. 

Queue Control Block - Not Waiting (Key Is 
2) : When the item at the head of the ready 
queue is a "not waiting" QCB, control is 
given to the first (highest-priority) sub- 
task represented in the QCB's STCB chain, 
and the QCB's key is set to 3» 

Queue Control Block - Waiting (Key Is 3) : 
A "waiting" QCB at the head of the ready 
queue is removed from the ready queue 
(i.e., replaced by the item linked to it), 
and its key is set to 1. A QCB waiting for 
elements cannot contend for control; how- 
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ever, it: is automatically returned to the 
ready queue when an element becomes 
available. 

When a subtask requiring more than one 
element (e.g. r a series of buffers) to 
accomplish its f unctio 1 receives control, 
the associated QCB continues to appear as 
"waiting" (key is 3) until all required 
elements have been received. Before a 
waiting QCB is removed, it is determined 
whether the QTAM subtask that had control 
last was associated with that QCB. If it 
was, that subtask is again given control. 
This cycle continues until the subtask ful- 
fills all of its requirements or until the 
subtask exhausts the queue's element chain. 



Resource Element Control Block : Each 
resource element control block (RECB) that 
has been posted to the ready queue contains 
the address of the QCB for the queue to 
which the element has been posted. When an 
element reaches the top of the ready queue, 
it is immediately replaced by the QCB to 
which it points. However, the QCB pointer 
in the RECB is retained. That QCB is then 
treated as though it, rather than an ele- 
ment associated with it, had been encoun- 
tered; its highest-priority subtask is 
activated, and its key is set to 3 . 

This convention has several significant 
aspects: 

1. It is the means by which a removed 
"waiting" QCB is returned to the ready 
queue. 

2. It illustrates the case where the 
active QCB (i.e.,, the QCB with which 
the active subtask control block is 
associated) is not necessarily at the 
head of the ready queue. 

3. It explains the fact that an RECB need 
not be physically chained into a QCB 
to become associated with that QCB. 
Specifically, it ensures that an ele- 
ment is immediately acted upon,, except 
in the case where the queue involved 
already has at least one other "real" 
element and is already contending for 
computing time. 

Full Subtask Control Block : This is the 
only form of STCB that appears on the ready 
queue. Its appearance at the head of the 
ready queue has exactly the same effect as 
the appearance of a "not waiting" (key=2) 
QCB with this STCB at the head of its STCB 
chain; the subtask is activated and the key 
of the QCB with which it is associated 
(Qattach) is set to 3. 

The mecnanism by which this is accom- 
plished is as follows: 



1. Location READY contains a pointer to 
the STCB; this situation is the phys- 
ical counterpart of the STCB's being 
at the head of the ready queue. 

2. The STCB itself has the appearance (to 
the QTAM control routines) of an ele- 
ment. Its QCB address is QATTACH. 

3. QATTACH is a storage location equiva- 
lent to READY minus 8 bytes; it also 
appears to be the first word of a "not 
waiting" QCB. 

4. Since the STCB is apparently a 
resource element control block asso- 
ciated with a "not waiting" QCB,, the 
first STCB in that QCB's chain should 
be selected for activation- The 
address of the first STCB is to be 
found in the third ful'lword of the 
QCB,. 

5. The third fullword of the QATTACH, 
which appears as a QCB, is the loca- 
tion READY. Therefore,, the full sub- 
task whose address is at READY is 
selected for control. 



EXIT SELECT SUBROUTINE 

This subroutine activates subtasks 
represented by truncated STCBs or falls 
through to the Exit Interface subroutine if 
the STCB is a full STCB. 

The first byte of a truncated STCB is a 
branch modifier of the form (entrypt-NRET) , 
where entrypt is the address of the desired 
entry point. NRET is the location from 
which the branch offset is applied. When 
the Exit Select subroutine encounters a 
nonzero return code* it computes the branch 
address and branches to the computed entry 
point. 



EXIT INTERFACE SUBROUTINE 

This subroutine is entered to process 
full STCBs* First the subroutine deter- 
mines whether or not the subtask is being 
scheduled for activation because it was 
represented in the STCB chain of a waiting 
QCB for which an element has been encoun- 
tered. If this condition exists,, the 
address of the element is placed in the 
parameter register in the save area of the 
full STCB. 



The subroutine links to the operating 
system Post routine,, which posts completion 
in the event control block of the STCB 
(SVRB) being dispatched. The subroutine 
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then exits in one of two ways,, depending on 2. If entry to Qdispatch resulted from an 
how the Qdispatch subroutine was entered: SVC, the subroutine issues a wait on 

the resource element control block of 
the entry SVRB. After the wait is 
1. If entry to Qdispatch resulted from an satisfied,, the subroutine returns to 
asynchronous interrupt, the subroutine the routine that issued the SVC. 
branches back to the I/O supervisor. 
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QTAM IMPLEMENTATION MODULE ROUTINES 



The QTAM Implementation module (module 
IGG019NG), consisting of 21 routines, is 
loaded into main storage by the Open Execu- 
tor used to open the direct access queues 
data set. 



RECEIVE SCHEDULER ROUTINE (CHART DH) 

If the line is a WTTA line, this routine 
tests the EOT flag. If this flag is set, 
exit is made to the Defer Entry subroutine 
at UNA VAIL in order to enter the line's 
Send Scheduler subtask (if any). If the 
EOT flag is not set, exit is made to the 
BRB-Ring routine at RQCONST to initialize 
for receiving. 

If the line is not a WTTA line, this 
routine examines the current polling list 
entry for a line. If polling is to be per- 
formed on the line and the current entry is 
valid (i.e. f is not the dummy entry signal- 
ling the end of the polling list), the rou- 
tine branches to the BRB-Ring routine 
(RQCONSTR) to initialize for receiving. 
Before the branch is executed, the routine 
sets the 'line receiving' code (LCBSTATE=8) 
in the LCB to indicate the kind of opera- 
tion anticipated. 

If the current polling list entry is the 
dummy last entry, the routine clears the 
line receiving code and branches to the 
Defer Entry subroutine at UNAVAIL after 
resetting the current entry pointer to the 
top of the polling list. The purpose of 
this branch is to permit the line's Send 
Scheduling subtask to become eligible for 
activation if its STCB is also in the 
chain. If the Send Scheduling subtask is 
not in the chain, the Receive Scheduling 
subtask will again be activated to start 
polling at the top of tne polling list. 

Before the branch to the Defer Entry 
subroutine is taken, a possible endless 
loop is avoided by a test to determine that 
the polling list contains at least one 
entry in addition to the dumrry last entry. 
If the list contains no true entry and the 
next STCB is a full STCB, the LCB is 
removed from the ready queue and its 
address is stored in the save area of the 
STCB. This is done in case of a closedown. 
The routine branches to the Exit Interface 
routine to post the ECB completed. If the 
list contains no true entry and the next 
STCB is not a full STCB, the Receive Sched- 
uling subtask is left at the head of the 
STCB chain but is skipped over. Control 
passes to the second subtask in the chain. 



BRB-RING ROUTINE (CHART PI) 

This routine constructs the BRB ring 
used to send or to receive a message, and 
begins initialization of a CCW in each BRB. 
The BRBs are drawn from the pool generated 
on expansion of the BUFFER macro instruc- 
tion; the routine attempts to form a ring 
containing the number of BRBs specified in 
the BUFRQ parameter of the DCB. 



As an extension of the Receive Scheduler 
routine, the BRB-Ring routine checks for 
messages on the dial out-call queue. If 
the line is a dial line and the terminal 
has transmitted all messages, the dial out- 
call queue for the line is obtained in the 
DEB. The STCB chain is searched for a mes- 
sage whose relative line number is equal to 
or less than the relative line number of 
the free line. If the terminal for the 
STCB is connected to the free line, the 
Send Scheduler is removed from the dial 
out-call queue and inserted into the STCB 
chain for the line by IECKQQ01. 



If the terminal 
is continued for a 
line number that i 
line number of the 
end of the chain, 
obtained and the 1 
dial up. The STCB 
out-call queue cha 
STCB chain for the 



is not free, the search 

message with a relative 
s less than the relative 

current line. At the 
the dial digits are 
ine is set to allow a 

is removed from the dial 
in and inserted into the 

line. 



If no messages are found, the line was 
not a dial line, or the terminal could not 
be disconnected, the LCB is set to receive 
and the BRB ring is constructed. 

When the routine is entered, a register 
is adjusted so that the line control block 
appears to the system to be an STCB,. This 
anticipates the situation in which not 
enough BRBs are available to complete the 
ring; in this case, the LCB is placed on 
the STCB chain of the active buffer request 
queue (through a branch to UNAVAIL- 6, the 
instruction preceding the Defer Entry sub- 
routine) . When a BRB is posted to that 
queue, the BRB-Ring routine makes another 
attempt to complete the ring. When suffi- 
cient BRBs are available, the resulting BRB 
ring consists of a series of BRBs, each 
containing: (1) in the third fullword* the 
transfer- in- channel operation code and the 
address of the preceding BRB/CCW in the 
ring, and (2) in the fourth fullword, a 
pointer to the LCB for which the ring was 
constructed. 
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Since each BRB/CCW contains a transfer- 
in-channel to the previously built BRB/CCW f 
the TIC address in the first BRB/CCW is 
initially meaningless. The last step in 
completing the ring (if enough BRBs were 
available) is, therefore, to reset the 
first BRB/CCW to transfer-in-channel to the 
last one. If the order of construction of 
a four-member BRB/CCW chain was A-B-C-D, 
the order of execution will be A-D-C-B. 

When the BRB/CCW ring is completed, the 
LCB is removed from the location where it 
was encountered as an apparent STCB (that 
is, from the head of an STCB chain or the 
ready queue) . Depending upon whether a 
Send or a Receive operation is being pre- 
pared for, further initialization is 
performed: 

1 . The element control block portion of 
the first BRB/CCW is given a priority 
value : 

RECEIVE - 12 
SEND - 

2. Into the LCB is inserted an operation- 
type code for subsequent use by BTAM: 

RECEIVE - 1 (Read Initial) 
SEND - 2 (Write Initial) 

3 . A register is initialized for the QCB 
of the queue to which the first BRB/ 
CCW is to be effectively (but not lit- 
erally) posted: 



RECEIVE 
SEND 



Active buffer request queue 
Disk input/output queue (for 
Send operations , additional 
initialization consists of 
setting an MSTATUS code of 9 
and of inserting the rela- 
tive record number for this 
first segment of the 
message. ) 



ACTIVE BUFFER REQUEST ROUTINE (CHART PL) 

This routine is entered on activation of 
the active buffer request subtask. The 
element passed to the routine is an active 
BRB; the routine determines whether a buf- 
fer to satisfy the request is available and 
should oe assigned, or whether the active 
BRB should be enqueued for later servicing. 

If tne active BRB represents the begin- 
ning of a BRB ring to be used for a receive 
operation,, the routine removes a buffer 
from the element chain of the available 
buffer QCB and exits to the Buffer BRB rou- 
tine. Parameters passed to that routine 
are: the address of the active BRB, the 
address of the removed buffer, and the 
address of the available buffer QCB. 



If the active BRB is not the first of a 
ring for a Receive operation, or if it is 
the first but no buffer is available, the 
routine branches to the Priority Search 
subroutine to cause the active BRB to be 
enqueued on the element chain of the active 
buffer request queue. 



AVAILABLE BUFFER ROUTINE (CHART DM) 

This routine is entered on activation of 
the available buffer subtask* or from the 
Buffer BRB routine. The routine responds 
to the availability of a buffer by attempt- 
ing to locate an available BRB. If no BRB 
is available, the buffer is chained into 
the element chain of the available buffer 
queue through a branch to the Queue Insert 
subroutine. If a BRB is available, this 
routine branches to the Buffer BRB routine. 



BUFFER BRB ROUTINE (CHART DN) 



This routine is entered from either the 
Active Buffer Request routine or the Avail- 
able Buffer routine. Its function is to 
examine a buffer request block and to make 
the appropriate disposition of the buffer 
depending upon the status of the BRB. 

1. If the BRB is associated with a Read 
from DASD operation, the routine 
effectively (but not through an SVC) 
posts the BRB to the disk I/O queue 
and the buffer to the available buffer 
queue. 

2. If the BRB is associated with a Read 
from line operation, the routine 
assigns the buffer to the line and 
exits to the Interim LPS routine to 
cause the buffer to be placed on the 
LPS queue. 

3. If the BRB is associated with a PUT 
operation, this routine branches to 
the Put routine, which places the data 
into the buffer.. 



DISK I/O ROUTINE (CHART D2) 

This routine is entered on activation of 
the disk input/output subtask. The routine 
chains message-filled buffers (for disk 
writes) and BRBs (for disk reads) to the 
element chain of the disk input/output 
queue, and issues the SIO command (through 
an SVC 0) to write on or read from disk. 
Before issuing the Start I/O command, the 
routine converts the relative record number 
used by QTAM into a relative track address, 
and then branches (through a BALR) to a 
module of the basic partitioned access 
method to convert the relative track 
address to an actual DASD address. 
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DISK END APPENDAGE (CHARTS DO AND Dl) 

This routine is an I/O appendage entered 
from the I/O supervisor following a DASD 
Read or Write operation. In a Receive 
operation, the routine routes the empty 
buffer required for the next segment to be 
received to the available buffer queue. In 
a Send operation, the routine routes the 
message-filled buffer to the LPS queue, 
initializes the next BRB in the ring to 
read the next segment of the message, and 
if a buffer has been assigned, routes it to 
the disk input/output queue. 



code is set in the LCB (01 in LCBCECB) ; if 
the EOT flag is not set,, the Read Continue 
operation code is set (03 in LCBCECB). 



Before entering BTAM, the routine 
initializes the LCB to route the received 
message segment to a queue of messages hav- 
ing erroneous destination information. 
This routing information will be overlaid 
if valid destination information appears 
later. 



LPS CONTROL ROUTINE (CHART DO) 

When entered, the LPS Control routine 
issues an immediate SVC to Qwait on the LPS 
queue for: 

1. An available buffer into which a mes- 
sage segment is to be read. 

2. A duffer containing a text or header 
segment (that is, a message-filled 
buffer) that has been read or is to be 
written. 

3. The last segment of a message after it 
has been written. 

4. A request to start a disk I/O 
operation. 

5. A request for a closedown. 

When an available "first" buffer is 
encountered, the routine exits to the 
Activate routine to cause receipt of the 
message to be initiated. When a full buf- 
fer or the last buffer is encountered, the 
routine branches to the beginning of the 
line group routine defined by the user 
through LPS macro instructions. If the LCB 
is for checkpoint, an SVC Qpost is issued 
to post the LCB. Upon encountering a re- 
quest for a closedown, the routine returns 
to the problem program at the instruction 
following ENDREADY. 



ACTIVATE ROUTINE (CHART DP) 



This routine initializes for a communi- 
cations line Read or Write operation and 
branches to the BTAM Read/Write routine. 
An exception arises if a Send operation is 
scheduled for a terminal not eligible for 
receiving; an error status code is set in 
the LCB, and the routine exits to the 
user's LPS routine. 

If the line is a WTTA line with the 
receiving code in the LCB, and if the EOT 
flag is set, the Read Initial operation 



LINE SIO APPENDAGE ROUTINE (CHART DQ) 

This routine is entered from the super- 
visor EXCP handler after an EXCP (SVC 0) 
has been issued by BTAM, but before an SIO 
command has been issued. The routine modi- 
fies the BTAM generated channel program to 
meet QTAM requirements. 

If this routine was entered at Open 
time, flags are set to indicate ERP is in 
control. Return is made to IOS, which will 
give control to the Open and Checkpoint 
routines. 

When this routine is entered* BTAM has 
generated a channel program consisting of 
several channel commands including a Write 
Data or Read Data CCW. QTAM has created a 
ring of BRB/CCWs, each containing the PCI 
flag and a transfer -in- channel command to 
the following BRB/CCW. The routine links 
these two channel programs together by al- 
tering the flags in the BTAM Read or Write 
Data CCW and by adding a transfer-in- 
channel command to the second QTAM BRB/CCW 
(see Figure 24) . 

When the channel program is executed, 
the first buffer is transmitted under the 
BTAM Read or Write Data CCW. If QTAM has 
already scheduled a second buffer (usually 
this is the case), a trans fer-in-channel to 
the QTAM CCW takes place, and the second 
buffer begins to fill. The PCI flag in the 
QTAM CCW causes the Line PCI Appendage to 
be entered as filling of the second buffer 
begins. (If a second buffer is not avail- 
able, QTAM sets the PCI flag in the BTAM 
CCW.) 

If the channel program involved is for 
an initial Read, the Line SIO Appendage 
also replaces the polling character pointer 
in the BTAM Write Polling Characters CCW 
with a pointer compatible with the QTAM 
polling technique. If the CCW is for an 
autopolled line, a header indicator is set 
and the polling pointer is not adjusted. 
If polling has been suppressed for the ter- 
minal, QTAM replaces the Write Polling 
Characters CCW with a No-poll CCW. 
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When the required adjustments have been 
made, QTAM branches back to the EXCP Hand- 
ler to cause the SIO command to be issued. 



LINE PCI APPENDAGE ROUTINE (CHART PR) 

This routine is entered when a program 
controlled interrupt occurs during the 
execution of a QTAM channel command for the 
line. The function of the routine is to 
dispose of the buffer filled or emptied by 
the channel command preceding that which 
caused the PCI, and to place a request for 
the buffer that is to be emptied or filled 
by the CCW when it is again encountered in 
the ring. For an autopolled terminal, the 
routine adjusts the poll pointer to enable 
the terminal that has messages to send,, to 
be repeatedly polled until it has no more 
messages or the limit is reached. 
Graphically: 
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This CCW pair filled 
buffer (A) , which is to 
be disposed of. 



This CCW pair is fill- 
ing buffer (B) and 
caused the PCI. 



This CCW pair will fill 
buffer CO , which must 
now be obtained. 



For receive operations,, buffer (A) is 
routed to the interim LPS queue; for send 
operations,, the buffer is routed to the 
available suffer queue. In either case, 
the request for buffer (C) is routed to the 
active ouffer request queue. 



LINE END APPENDAGE ROUTINE (CHARTS PS AND 
DT) 

This routine is an I/O appendage entered 
on channel end during line I/O operations 

I or by the WTTA Line End Appendage when a 
channel end has occurred on a WTTA line. 
Normally,, the routine routes a message- 
filled Duffer to the LPS queue or exits to 
the supervisor to restart the channel pro- 
gram. When entered because of a negative 
response to polling, the routine resets the 
polling list pointer to the next entry in 
the polling list before initiating restart. 

If the routine was entered due to a SAD 
or Enable command, return is to 10 S if IDLE 
was specified; otherwise the LCB is posted 



to start the line. If there is terminal 
test activity the buffer is posted to the 
LPS queue. 

If this routine was entered from the 
WTTA Line Appendage and if no program check 
has occurred, return is made to the WTTA 
appendage. 

If the buffer is a header on an auto- 
polled line, the indication is cleared. If 
the CCW is for a Read Text, the routine 
links to the Line PCI Appendage to adjust 
the polling pointer. Otherwise, a test is 
made for possible errors. 

If there were no errors, a test is made 
for an autopolled line* If there is a mes- 
sage to send and it is either send priority 
or end of polling list, the message is sent 
by posting to the interim LPS queue. 

If the status, or unit exception (not 
for a Read Response to polling CCW or 
enable) is not a normal indication, return 
is made to IOS to call in Error Recovery 
Procedures. If the completion code is not 
normal and the SIO condition code is 3 ( , 
return is made to the LPS Control routine 
to free the buffer. 

This routine may also be entered as a 
result of a program check occurring because 
a buffer was not provided on time, or 
because a CCW with a zero data count was 
accessed. The two low-order bits of the 
TIC command in each BRB/CCW are used to in- 
dicate BRB status. When a buffer has been 
allocated, these bits are set to zero. 
Because of timing considerations, a PCI 
flag in the CCW preceding a CCW containing 
a TIC may not interrupt the channel program 
before the trans fer-in-channel command is 
executed. If this happens before the 
required buffer has been allocated and the 
BRB status code has been cleared^ the 
requirement that the TIC address be on a 
doubleword boundary is violated by the non- 
zero low-order bits and a program check 
occurs. Four possibilities arise: 

1. The check occurred on the TIC follow- 
ing the CCW for the last segment of an 
outgoing message. This is a normal 
situation and is ignored. (The miss- 
ing buffer is for the next segment and 
there is no next segment. ) If this is 
not the case, the start channel pro- 
gram pointer (LCBSTART) is reset to 
the CCW to which the TIC command was 
to have transferred control; this 
anticipates correction of the 
condition. 

2. It ib possible that through asynchro- 
nous operations a buffer was allocated 
and the TIC address was made valid in 
the period between the generation of 
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program check and its detection by the 
program. If this is true r the channel 
program is simply restarted. 

The process of allocating a buffer may 
already have been initiated; if so,, 
the routine exits to the supervisor to 
allow time for the process to 
complete. 

If the process of allocating a buffer 
has not already been initiated, the 
routine branches to the Line PCI 
Appendage (at NOTINO) to release the 
buffer filled by the CCW immediately 
preceding the TIC that caused the pro- 
gram check. 



tained in the last filled buffer,, as 
follows: 

a. If this character is EOM* EOT, or 
WRU, the residual count of the CSW 
is set to zero and the address of 
the CCW corresponding to the last 
filled buffer is inserted in the 
CSW. 

b. If this character is other than 
EOM„ EOT, or WRU, the CSW remains 
unchanged. 

Then the routine exits to the QTAM Line PCI 
Appendage routine*. 



WTTA LINE END ROUTINE 



WTTA LINE APPENDAGE ROUTINE (CHARTS Rl, R2, 
R3, AND R4) 

This routine is entered from the 
supervisor: 

1. When a program controlled interrupt 
(PCI) occurs during the execution of a 
QTAM channel command for the line; or 

2. On channel end during I/O operations. 

Furthermore, this routine can be reentered 
from the QTAM Line End Appendage routine. 

The WTTA Line Appendage is composed of 
the following two routines: 

• The WTTA Line PCI routine 

• The WTTA Line End routine 



WTTA LINE PCI ROUTINE 

The WTTA Line PCI routine is entered 
when a program controlled interrupt (PCI) 
occurs during execution of a QTAM channel 
command for the line. 

If the interrupted channel command is a 
Write CCW or a Read CCW with a residual 
count in the CSW that is different from the 
initial count, control is returned to the 
QTAM Line PCI Appendage routine. 

If the interrupted channel command is a 
Read CCW with identical initial and residu- 
al counts, the action taken depends on the 
type of Read CCW, as follows: 

1. If the interrupted channel command is 
the first Read CCW, the PCI is ignored 
and control is returned to the 
supervisor. 

2. If the interrupted channel command is 
a Read CCW in a BRB, the Line PCI rou- 
tine tests the last character con- 



The WTTA Line End routine is entered 
when an I/O operation ends with a channel 
end condition,, or is reentered from the 
QTAM Line End Appendage routine. If an I/O 
operation ends with channel end (C. E.) and 
unit check (U. C. ), the result of the Sense 
operation is analyzed to check whether an 
abnormal condition occurred and,, if so,, the 
ERP routine is entered,. 

The operations executed by the WTTA Line 
End routine depend on whether this routine 
is entered on completion of a Halt I/O 
operation, of a Read channel program, of a 
Write channel program,, or of an exchange of 
identifications, as follows: 

1. On completion of a Halt I/O operation : 
If data is being received at the same 
time as the Halt I/O operation is 
executed, the interrupted Read Initial 
channel program is restarted. If no 
data is being received, a Write chan- 
nel program is started to send a "let- 
ters shift" character followed by "n" 
padding characters (where w n n is the 
number specified in the DCB macro 
instruction). On completion of this 
Write channel program, control returns 
to the Interim LPS routine* 

2. On completion of a Read channel pro- 
gram : The last character received in 
the corresponding buffer is analyzed, 
as follows: 

a. If this character is EOT, the EOT 
flag is set, and the buffer is 
posted to the Interim LPS routine. 

b. If this character is EOM, the buf- 
fer is posted to the Interim LPS 
routine. 

c. If this character is WRU* the 
action taken depends on whether or 
not the buffer is the first one. 
If the WRU character is in the 
first buffer, the Read CCW is 
updated to read the rest of the 
buffer, and the first part (identi- 
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fication exchange) of the Read 
channel program is started. If the 
WRU character is in another buffer f 
the "WRU" flag is set in the LCB, 
and the buffer is posted to the 
Interim LPS routine. 



On completion of a Write channel pro- 
gram : The operations to be executed 
depend on how the I/O operation has 
ended: 



a. If the I/O operation has ended with 
a normal end condition, the buffer 
is posted to the LPS queue, pro- 
vided no exchange of identifica- 
tions is requested at the end of 
the output message. If this 
exchange is requested, the first 
part (identification exchange) of 
the Write channel program is 
started. 

b. If the I/O operation has ended with 
an abnormal end condition (conten- 
tion) , the contention counter is 
incremented, and a Write Break CCW 
is started (provided the threshold 
value has not been reached) . On 
completion of this CCW, the inter- 
rupted Write CCW is restarted. 



On completion of an exchange of iden- 
tifications: The result of the 



BUFFER CLEANUP AND RECALL ROUTINE (CHARTS 
DD AND DE) 



exchange is analyzed to determine 
whether or not the exchange has been 
successfully performed and to take the 
appropriate action, as follows: 



If the exchange is unsuccessful, 
this condition is set in the line 
error half word, and the buffer is 
posted to the Interim LPS queue 
(for receiving operations) or to 
the LPS queue (for sending 
operations) . 

If the exchange is successful, the 
action taken depends on when the 
exchange has been performed. 



At the beginning of an output mes- 
sage : The Write channel program is 
restarted. 

At the end of an output message : 
The last buffer is posted to the 
LPS queue. 

When receiving an input message : 
If EOM=WRU, the last buffer is 
posted to the Interim LPS queue. 
If E0M is not WRU, the Read channel 
program is restarted to read the 
rest of the input message. 



This routine is entered through a branch 
instruction generated on expansion of a 
macro instruction in the problem program. 
The routine performs a cleanup function 
when entered at IECKPR through the calling 
sequence generated by a POSTSEND or POST- 
RCVE macro instruction. The recall func- 
tion entry IECKRC is performed when entry 
is through the calling sequence associated 
with a CANCEL, EOBLC, ERRMSG, or REROUTE 
macro instruction. The difference between 
the two entry paths is that in the second 
case the recall flag is set on in the LCB 
(LCBSTATE = 64) . 



For either a cleanup or a recall opera- 
tion, the routine releases all buffers 
assigned to the line. Buffers are released 
to the appropriate queue through an SVC 67. 
(The first buffer to be released may al- 
ready contain a message segment; if so, it 
is posted to its destination queue. ) The 
first buffer ( if it does not already con- 
tain a message segirent) and all subsequent 
buffers not scheduled to be filled are 
posted to the available buffer queue. 
Additional CCWs encountered in the BRB ring 
from which buffers are being released are 
posted to the additional CCW queue. 

Buffers that have been assigned to the 
line and have also been scheduled for a 
read from direct access storage are treated 
differently. When such a buffer is encoun- 
tered, the routine branches to the LPS Con- 
trol routine. At that time, the "cleanup" 
flag or the "recall" flag (but not both) is 
on in the LCB for the line, indicating the 
type of operation in progress. 

When the LPS Control routine is entered , 
it waits for a message-filled buffer and 
proceeds as usual unless the buffer is 
assigned to a line for which the "recall" 
or "cleanup" flag is on. When a buffer 
with either flag (but not both) on is 
found, the LPS Control routine branches 
back into the Buffer Cleanup and Recall 
routine, where the buffer is then released 
to the available buffer queue. 

To recall a message segment, the routine 
provides the buffer request blocks required 
to read message segments from direct access 
storage, obtains the segment being 
recalled, and exits to the calling routine. 
When the cleanup operation is complete, 
exit is made to the Free BRB routine. This 
routine frees all BRBs in the BRB ring and 
posts each to the inactive BRB queue. The 
routine then posts the line to itself, 
which is the standard technique for return- 
ing a line to the free condition, and exits 
to the LPS Control routine. 
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DASD DESTINATION ROUTINE (CHART DX) 

This routine is entered on activation of 
the DASD destination subtask, or by a 
branch-and-link from the Send Scheduler 
routine. The latter entry occurs when the 
Send Scheduling subtask is activated 
because of the availability of a message- 
filled Duffer. 



For buffers containing text segments, 
the routine routes a full buffer to the 
disk I/O queue and increments the message 
count (unless a CANCEL operation is in pro- 
gress) . The LCB for the source line (the 
line on which the segment now in the buffer 
was received) is removed from the source 
chain in which it previously appeared and 
linked into the source chain for the 
destination queue. The next segment rela- 
tive record number is calculated and 
stored, and the routine either: 



1. Returns to the Send Scheduler routine, 
or 

2. Exits to the Qdispatch subroutine. 



GET SCHEDULER ROUTINE (CHART DV) 

This routine is entered when a buffer 
has been returned or when a disk read from 
a process queue has been completed. The 
routine makes three tests to determine 
whether the processing program is ready to 
accept another segment. If (1) there is no 
message segment in the DASD process queue, 
or (2) there are too many buffers in the 
process queue for the processing program to 
handle, or (3) a segment is currently being 
read from the DASD process queue,, no furth- 
er disk reading can be initiated^ and this 
routine exits to the Qdispatch routine. If 
none of the three conditions exists* the 
routine initiates a disk read from the DASD 
process queue. 
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Figure 24. Interaction Between BTAM and QTAM Channel Programs 
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RETURiSI BUFFER ROUTINE (CHART DW) 

This routine returns a buffer from the 
MS process queue and exits to the Get 
Scheduler routine to allow resumption of 
disk reading from trie DASD process queue. 
If the Duffer is not the dumiry buffer for 
the first GET, the routine effectively 
posts tne Duffer to the available buffer 
queue if tne buffer is not the last seg- 
ment. If it is the last segment and if the 
"cleanup," "recall," and "converse" bits 
are set, the buffer is posted to the LPS 
queue. 



END OF POLL TIME DELAY ROUTINE (CHART DJ) 

This routine delays polling for a speci- 
fied amount of time. If entered from an 
I/O interrupt, the routine goes to the 
Defer Entry routine, because the SVC cannot 
be given when an interrupt has occurred. 

The routine issues the TIME macro 
instruction to obtain the tiire of day. The 
interval of intentional delay specified by 
the user is added to the time of day and 
stored in the LCB. The LCB is inserted 
into the time queue. If the interval of 
time has not yet elapsed, the routine 
issues an STIMER macro instruction to time 
the intentional delay. The exiting routine 
sets the condition code and obtains the 
address of the time queue QCB. The routine 
branches to the Line PCI Appendage to put 
the time queue on the ready queue. 

When the time queue is dispatched from 
the ready queue and an LCB is in the time 
queue, the TIME macro is used to obtain the 
current time of day. If the time has 
elapsed, the LCB is removed from the time 
queue. If the LCB is for a checkpoint , a 
branch is taken to the Post subroutine to 
post the LCB. If the line is active, the 
LCB is placed into the top of the ready 
queue to activate the line before going to 
the Priority Search subroutine. 



INTERIM LPS ROUTINE (CHART DU) 

Before the buffers are processed, the 
INTERM queue is put on the ready queue 
behind the LPS queue. This is a special 
queue to delay the LPS until all buffer 
requests are processed. 



SEND SCHEDULER ROUTINE (CHART DK) 

This routine is entered when an LCB is 
on the top of the ready queue or when a 
message is to be written on a disk. If a 
message is to be written, the routine links 
to the DASD Destination routine at entry 
point SCREEN to cause a post to the disk 



I/O QCB. If the DCB has not been opened or 
the DEB is not open for output, the routine 
branches to the Dispatch subroutine 
(IECKQQ01). 

If the DCB is open for output and the 
line is a WTTA line* the routine tests the 
line for availability. If the line is not 
available, a branch is made to the defer 
entry subroutine. If the line is avail- 
able,, the HI0 flag is set in the LCB, and a 
Halt I/O operation is issued to clear the 
Prepare command. 

For dial lines, if the relative line 
number of the STCB is greater than the 
relative line number of the current line, 
the STCB is placed on the dial out-call 
queue. If the line is connected to the 
destination terminal, the STCB is chained 
to the LCB and immediately dispatched. If 
the line is not connected to the correct 
terminal, the line group is searched by 
relative line number for a line that is 
free and the terminal available for dial. 
(This test is made on the priority of the 
Send Scheduler and is set to 1 by the TERM 
macro for dial lines that are not con- 
nected.) If no line is found, the STCB is 
chained to the dial out-call queue- 

For all lines, the LCB is set to indi- 
cate that the line is trying to send. If 
the line is free the destination LCB with 
the send scheduler STCB is placed on the 
ready queue and dispatched. If the line is 
not free and is not an autopolled line* a 
branch is taken to the Defer Entry subrou- 
tine. If an autopolled line with receive 
status (LCBSTATE is X'08"), the TIC command 
code is changed to a NOP before branching 
to the Defer Entry subroutine. 

If the routine was entered because the 
LCB was on top of the ready queue, the rou- 
tine tests for an incoming priority mes- 
sage. If the line is sending or is in 
initiate mode, and if there are no complete 
nonpriority messages,* or if there are 
priority messages coming in, the LCB is 
removed from the source chain. If the line 
is neither in an initiate mode nor sending, 
the status of the LCB is cleared* If a 
partial message is present in the queue (an 
invalid condition) the routine branches to 
the Wait subroutine. After setting the 
status code, the routine exits. If the 
routine was entered via the Get Scheduler 
routine, return is to that routine. If a 
line is sending,, the routine branches to 
the BRB Ring routine at RQC0NST. 



FREE BRB ROUTINE (CHART DF) 

This routine returns the BRBs to the 
inactive BRB queue. If a buffer request is 
pending (BRB is in the buffer request 



118 



queue) , the BRB is not freed. If the BRBs 
are not in the active buffer request queue* 
the routine posts all BRBs to the inactive 
buffer request queue. The remaining BRBs 
will be freed by the Buffer BRB routine. 
When all the BRBs that have no buffer re- 
quest pending are freed, the line is freed 
by posting the LCB to itself. 



END INSERT ROUTINE (CHART DG) 



This routine is entered by a branch and 
link from the End of Address, Conversation- 
al Mode, or Distribution List routines. 
The End Insert routine enters the address 
of a special entry point in these routines 
in a chain to be executed according to the 
priority specified by the Buffer Cleanup 
routine. 

The End Insert routine compares the 
priority specified in the calling routine 
with the priority that has been set in the 
End Insert routine. If the priority is 
less than that of the highest-priority rou- 
tine, the priority of the calling routine 
is compared with the next routine in the 
chain until the priority is higher. 



When the priority of the calling routine 
is higher than the one in the chain, the 
address and priority of the calling routine 
are inserted in the constant of the higher- 
priority routine in the chain. The pointer 
to the calling routine is adjusted to the 
BAL instruction. The operand of this 
instruction in the calling routine is over- 
laid with the constant following the BAL 
instruction- This constant contains a reg- 
ister that has been set up by the calling 
routine. To complete the chain, the con- 
stant is overlaid with the address and 
priority of the lower-priority routine. 
This routine branches back to the calling 
routine at the BAL instruction. 



CROSS PARTITION MOVE ROUTINE (CHART DY) 

This routine is entered on activation of 
the Move Data subtask f and it is used to 
move data while in the supervisor mode. 
The routine allows data to be moved between 
partitions or within the same partition. 
Control is passed to the Dispatch subrou- 
tine. The routine is passed the address of 
the data to be moved in register 5„ and the 
location into which it is to be placed in 
register 4. 
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COMMUNICATIONS SERVICEABILITY FACILITIES 



This section summarizes the following 
operations of the services that QTAM pro- 
vides to aid the user in error recovery: 

• Checkpoint/Restart 

• Error Recovery Procedures 

• On-Line Terminal Tests 

Note ; Since Operator Control has an asso- 
ciated LPS macro instruction, the summary 
of this facility appears in the section 
Message Control Program (LPS) Routines. 



CHECKPOINT/RESTART 

Checkpoint/Restart is provided as an 
optional facility for the QTAM message con- 
trol program at user-specified intervals 
(every 15 seconds to 15 minutes, or when a 
specified number of message processing par- 
titions have issued CKREQ macros) . By 
using tne QTAM Checkpoint/Restart facility 
for the message control program and other 
QTAM facilities such as sequence numbers,, 
an effective restart can be accomplished in 
a message processing program. 

The Checkpoint routine (module IGG019NH) 
stores tables and other control information 
necessary for a subsequent restart after a 
system failure. Two such records are kept 
(flip/flop) with a pointer to the current 
record. For example, the initial check- 
point record is placed in area 1; after the 
user specified interval, the second record 
is placed in area 2; the third, after the 
interval, is placed in area 1, etc. The 
pointer is updated each time and also 
stored on the disk in a data set control 
record. 



Restart involves getting main storage 
for reading the checkpoint record. The 
checkpoint information is then moved to the 
proper areas overlaying the initial values. 
The checkpoint information includes the 
terminal table, polling lists, the disk 
pointers from the QCBs for destination and 
process queues n and the address of the next 
record to be written on the disk™ An indi- 
cator is set for the line group DCB open 
routines to clear the lines in addition to 
normal open initialization. 

The ENDREADY macro instruction initiates 
the initial time interval request for the 
first checkpoint if Checkpoint/Restart has 
been specified and the time interval method 
is used. 

When the Checkpoint routine gains con- 
trol after the initial time interval has 
elapsed or when the specified number of 
CKREQ macros have been issued* storage is 
reserved (GETMAIN) and the necessary data 
moved into this area. This record is writ- 
ten on the disk in the area specified by 
the pointer. The pointer is then updated 
and written on the disk. The storage is 
then freed (FREEMAIN) . 

Close for the Checkpoint/Restart data 
set sets the pointer on the disk to indi- 
cate that it has been properly closed to 
enable a subsequent OPEN of this data set 
to distinguish between a normal close and a 
system failure. 



CHECKPOINT ROUTINE (CHARTS FA AND FB) 



Restart of the QTAM job after a system 
failure is accomplished by initial program 
loading (IPL) the system again, and loading 
the QTAM message control program in the 
same location as it was when the failure 
occurred. QTAM automatically reinitializes 
the tables and pointers from the latest 
checkpoint record on the disk. 

The Open Checkpoint Records Data Set 
routine checks the pointer to the latest 
checkpoint record to determine if the data 
set was properly closed, never opened, or 
left open due to a system failure. If the 
data set was never opened or properly 
closed, no restart procedure is performed. 
If the data set is left open due to a sys- 
tem failure, restart is performed in addi- 
tion to normal open procedures for the data 
set. 



Module Name : IGG019NH 

Function : This routine causes checkpoint 
records to be written on the Checkpoint 
Records data set at specified intervals or 
when CKREQ macros have been issued from a 
specified number of message processing 
partitions. 

This routine is entered at QUEUEST +10 

1. At ENDREADY time (A restart procedure 
may or may not be in process) , 

2. When a timer interruption occurs or 
the required number of CKREQ macros 
have been issued, 

3. When the checkpoint element reaches 
the top of the disk I/O queue-,, or 
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4. When a disk Write operation has been 
completed. 

The action taken for each type of entry 
is discussed in the following paragraphs. 

ENDREADY Time ; The expansion of the 
ENDREADY macro issues an SVC Qpost to cause 
the checkpoint subtask to be entered when 
the Checkpoint/Restart facility has been 
specified. The purpose of this entry is to 
set the timer for the first checkpoint 
interval and/or to release main storage 
obtained during a Restart operation. 

If a Restart is in process, the storage 
obtained to read the checkpoint record by 
the Open Checkpoint Data Set routine 
(module IGG0193V) is released by issuing a 
FREEMAIN macro. A test is made to deter- 
mine if the CKREQ or interval method of 
checkpointing is being used. If the CKREQ 
method nas been specified (via the CKPART 
operand of the TERMTBL macro), no further 
action is required; therefore, exit is made 
to the Qdispatch subroutine for a return to 
the ENDREADY expansion. 

If the interval method has been speci- 
fied (via the CKINTV operand) , exit is made 
to the Time Delay routine to set the timer 
for the first checkpoint interval. The 
checkpoint interval is passed in register 
6, and the address of the checkpoint ele- 
ment (apparent LCB) is passed in register 
4. 

Timer Interruption or Required Number of 
CKREQ Macros Have Been Issued : The check- 
point subtask is entered for the purpose of 
collecting the data required for a check- 
point record and for preparing to write the 
record on the Checkpoint Records data set. 

A GETMAIN macro is issued to obtain the 
main storage required to contain the check- 
point record. The following data is then 
located and transferred to the checkpoint 
work area: each terminal table entry; each 
polling list (except for the size byte) ; 
required data from each LCB (LCBCHDR, 
LCBNASEG, LCBTTIND r and LCBSTATE fields and 
unit address from the UCB) ; the data 
required from each destination QCB (QSIZE, 
QNASEG, QBACK, and QFAC fields) and each 
process QCB (same as for destination QCB 
plus the disk address of the current mes- 
sage) ; and the disk pointers in the error 
queue. 

The element chain of the disk I/O queue 
is then examined. If other elements appear 
on the disk I/O queue, the checkpoint ele- 
ment is chained in below them to schedule 
the disk Write operation for the checkpoint 
record. Exit is then made to the Qdispatch 
subroutine to wait for the checkpoint ele- 
ment to reach the top of the disk I/O queue 



element chain. When this occurs, this rou- 
tine will be reentered for writing of the 
checkpoint record. 

If no element is on the disk I/O queue 
element chain, an EXCP is issued to start 
the disk Write operation. Linkage is made 
to the Convert routine to convert the TTR 
to an actual DASD address prior to issuance 
of the EXCP. After the I/O has been 
started, exit is made to the Qdispatch sub- 
routine for dispatching the next ready 
item. 

Checkpoint Element Reaches Top of Disk I/O 
Queue : The TTR is converted to an actual 
DASD address, and an EXCP is issued to 
start the disk Write operation. 

Disk Write Operation Completed : When a 
write to the checkpoint records data set is 
completed, the disk interrupt is processed 
by an appendage within this routine, and 
control eventually returns to this routine 
at QUEUEST +10. This disk completion is 
recognized, and error checking is per- 
formed. If an error occurred on the disk 
Write, a WTO macro is issued to print an 
error message on the system console* The 
address of the Checkpoint routine is 
cleared in module IGG019NG to prevent any 
further attempts to write on the Checkpoint 
Records data set. 

If no error is detected, a test is made 
to determine if the entire checkpoint rec- 
ord was written. If not, the new write 
address and count of remaining data to be 
written are computed, and another Disk 
Write operation is started. When writing 
of the checkpoint record has been com- 
pleted, the current record indicator is set 
in the four-byte control record, and the 
counter of CKREQ macros required is reset 
to its initial value. An EXCP is then 
issued to start writing the control record. 

When writing of the control record is 
completed, several cleanup and re- 
initialization procedures must be per- 
formed. The main storage obtained to build 
the checkpoint record is released via a 
FREEMAIN. If the time interval method is 
being used # exit is made to the Time Delay 
routine to set the timer for the next 
checkpoint interval. If the CKREQ method 
is being used, the ECBs for the waiting 
message processing partitions are removed 
from the wait queue and posted complete. 
Exit is then made to the Qdispatch 
subroutine,. 

When a CKREQ macro is issued in a mes- 
sage processing program, the Checkpoint Re- 
quest routine (module IECKCKRQ) issues an 
SVC Qpost that causes this routine to be 
entered at CKSTCB +6. Upon entry, register 
1 contains the address of an ECB associated 



Communications Serviceability Facilities 121 



with the partition from which the CKREQ was 
issued. This ECB is chained into a wait 
queue. The CKREQ counter is decremented by 
one and tested to determine if the speci- 
fied number of CKREQ macros have been 
issued. If not, exit is made to the Qdis- 
patch subroutine. If CKREQ macros have 
been issued from the specified number of 
message processing partitions, an exit is 
made to the Post suDroutine in IECKQQ01 to 
post the checkpoint element to itself. 
This causes this routine to be reentered at 
QUEUEST +10 so a checkpoint may be taken. 



ERROR RECOVERY PROCEDURE 

The Error Recovery Procedure (ERP) rou- 
tines are designed to diagnose and recover, 
if possible, from all errors occurring dur- 
ing a telecommunications operation. The 
error routines provide the following basic 
functions: 

• Automatic retry of all errors not 
involving data transfer. Data transfer 
is handled by the End of Block and Line 
Correction routine. 

• Statistical recording of all control 
unit errors. 

• Error messages to the operator console 
for all permanent errors. 

• Line error recording for all data 
checks, nontext time-outs, and inter- 
vention required errors. 

ERP, which consists of 19 modules, 
operates in the nucleus error transient 
area within the supervisor protection key. 
IOS gives control to the QTAM/BTAM Control 
module (IGE0004A) on any error of a TP 
device. If the Line End Appendage routine 
finds any error in the status or sense, 
return is made to IOS indicating that con- 
trol is to be given to ERP. Ten routines, 
module names ending in E, are called by 
IGE0004A according to the error found by 
the Control module. The remaining eight 
routines are linked by other ERP routines 
for error recording and other functions. 

The ERP routines and module names are: 

IGE0004E Time-out and Data Check for Auto 
Poll 

IGE0104E Data Check 

IGE0204^ Time-out 

IGE0304±! J Intervention Required 

IGE0404E Lost Data 



IGE0504E Error Post 

IGE0604E Bus-out and Overrun 

IGE0704E Link 

IGE0804E Status Check 

IGE0904E Command Reject, Equipment Check,, 
SNO Error, SIO CC1 

IGE0004F Read Skip, Break Return 

IGE0104F Diagnostic Write/Read 

I GEO 20 4F Line Error Recording 

IGE0304F Operator Control and LER 
Addition 

IGE04 04F Special Open and Checkpoint 
Restart 

IGE0504F Not Operational SIO 

IGE0604F Bus-out and Overrun for Auto 
Poll 

IGE0704F Overrun 

Linkage between the modules is done by 
IOS through the XCTL routine with a branch 
on register 14. The last four digits of 
the module name are placed in register 13, 
and the address of the XCTL routine, 4 4 
(CVT address) is placed in register 14. 
The possible linkages between modules are 
shown in Figure 25. 

In this section there is a description 
of each module for the QTAM ERP. The 
descriptions explain the action taken under 
different commands and types of transfer. 

Generally, if there has been no text 
transfer, the channel program is retried. 
If there is an error after two retries,, the 
error is considered permanent. In the case 
of a permanent error,, if on a nonswitched 
connection, a message is written to the 
operator. For a switched line, the sense 
bytes, CSW, and failing CCW are saved in 
the channel program area LCBCPA +32 through 
40 for the message. A CCW for the Disable 
to hang up the phone is created as the 
first CCW in the channel program. A dis- 
able return (X'40") is set in LCBERRCT + 1. 
An EXCP is issued to execute the disable. 
Upon return, exit is made to IOS* 

For conditipns that should not happen, 
the "should not occur" bit (bit 7) is set 
in the error half word in the LCB. This 
condition is considered a permanent error. 

When there has been an error on a Read 
Response to autopolling, the polling list 
address and entry size are obtained. The 
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Figure 25. Linkage of ERP Modules 



polling list is searched for an equal com- 
parison on the index byte. If no match is 
found, the channel program is restarted 
with the existing Poll CCW. If there is an 
equal comparison/ the address of the match- 
ing entry is used, and the count is set to 
the new count plus the initial address 
minus the address of the matching entry. 

When there is an error on the poll CCW f 
the polling list address and entry size are 
obtained. The count is set to the residual 
count plus the width of the poll charac- 
ters. The data address is the poll list 
address and original count minus the new 
count. 

The following summarizes the switches 
that ERP sets in the LCB: 



LCBERRCT 



LCBERRCT +1 



Retry counter 

X'OO" Normal return 
X'01' No message required 
X'02' Exit to Error Post 

routine 
X'04' Exit to Diagnostic 

Write/Read routine 
X'08' Read skip return 



LCBINCAM +1 



X^O' Disable return 
X a 0C' Special open for 
Checkpoint/Restart 

X w 3" Time-out update for 

Line Error Recording 
X'Ol' Data Check update for 

Line Error Recording 
X^C^' Intervention Required 

update for Line Error 

Recording 



TIME-OUT AND DATA CHECK FOR AUTO POLL 
ROUTINE (CHART AF) 

todule Name : IGE0 004E 

Function : After adjusting to the failing 
CCW, the routine tests the CCW: 

• For a Read Response to autopolling, the 
polling list address and entry size are 
obtained. The polling list is searched 
to obtain the new count and data 
address for the pell CCW. The channel 
program is retried with the first CCW. 
Upon return, linkage is made to the 
Line Error Recording module. 
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• For a Poll CCW, the polling list 
address and entry size are obtained. 
The new count and data address are 
placed in the poll CCW. The channel 
program is retried with the first CCW. 
Upon return, linkage is made to the LER 
module . 

If the retry has failed two times, the 
time-out error is set in the error half- 
word, and linkage is made in order to post 
with message. 



DATA CHECK ROUTINE (CHART AB) 



Module Name: 



IGE0104E 



Function : After initializing,, the routine 
indicates a data check update for the Line 
Error Recording module in LCBINCAM +1 
(X'OIM 

If the failing CCW is a Read, 

• If there has been a text transfer and 
no permanent error, linkage is made to 
the Error Post routine with an indica- 
tion for no message. 

• If a read TWX ID response, the channel 
program is executed to disable and 
redial for the retry. 

• If a Read Response to autopolling, 
linkage is made to the Time-Out and 
Data Check for Auto Poll module. 



• For other adapters the routine indi- 
cates no linkage to the LER (Line Error 
Recording) routine and the "should not 
occur" bit in the error halfword of the 
LCB. A permanent error condition 
exists. 

If the failing CCW is a poll, linkage is 
made to the Time-Out and Data Check for 
Auto Poll module. 

If retry has failed two times* then it 
is considered a permanent error- 

• On a 2701 control unit, 

(a) If the LER routine is required, an 
indication (X'04') for Diagnostic 
Write/Read is set in LCBERRCT + 1„ 
and linkage is made to the LER 
routine. 

(b) If the LER routine is not required, 
linkage is made to the Diagnostic 
Write/Read routine* 

• Otherwise a normal retry is executed. 

If the failing CCW is a Break for a WTTA 
adapter, 

• On a 2701 control unit, an indication 
(X'04 f ) for Diagnostic Write/Read is 
set in LCBERRCT + 1, and linkage is 
made to the LER routine. 

• Otherwise, linkage is made to the LER 
routine. 



• If a switched connection, the routine 
sets up for a retry after the disable- 
dial or disable- enable sequence. Upon 
returning from the EXCP, linkage is 
made to the Line Error Recording 
routine. 

If tne failing CCW is a Write, 

• For a type I adapter, 

(a) If text transfer, linkage is made 
to the Error Post routine with no 
message indication. 

(b) If not text transfer, the channel 
program is restarted the same as a 
read. Return is made to the Line 
Error Recording routine. 

For a WTTA adapter, this is a conten- 
tion situation, and the error recovery 
procedure has been performed by the 
WTTA Line End Appendage routine as long 
as the threshold value has not been 
reached. When the Data Check routine 
is entered, linkage is made to the Line 
Error Recording routine with a per- 
manent error indication. 



TIME-OUT ROUTINE (CHART AC) 

Module Name : IGE0204E 

Function : After initialization, the rou- 
tine tests the failing CCW. 

If the failing CCW is a Read, 

• For a text transfer, linkage is made to 
the Error Post routine with a no mes- 
sage indication. 

• For a Read Response to autopolling, 
linkage is made to the Time-Out and 
Data Check for Auto Poll module. 

• For a Read Response to polling, 

(a*) on a TWX terminal, return is made 
to IOS via an EXCP. 

(b) otherwise, the channel program is 
retried with the first CCW (third 
CCW for a Write Initial on a 
switched line). For switched 
lines, a Disable is set in the 
first CCW. Upon return, linkage 
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is made to the LER module (return 
to IOS if a text time-out). 

If the failing CCW is a Dial, Enable , or 
Disable, the channel program is retried 
with the first CCW. Upon return, linkage 
is made to the LER module. If the failing 
CCW is a prepare, the channel program is 
retried beginning with the prepare CCW. 

If the failing CCW is a poll, linkage is 
made to the Time-Out and Data Check for 
Auto Poll module. 

If retried two times without success, a 
permanent error condition exists. 



If a dial, the unit failure is recorded 
in the Statistical Data Recorder (SDR) and 
the channel program is retried using the 
first CCW. 

If a Read command, 

• For TWX ID response, the channel pro- 
gram is retried using the first CCW. 

• For Read Response to autopolling,, the 
new count and new data address are 
stored in the poll CCW before the chan- 
nel program is retried with the first 
CCW,. 

• For a text transfer. 



INTERVENTION REQUIRED ROUTINE (CHARTS AD 
AND AE) 

Module Name : IGE0304E 

Function : After the retry counter in the 
LCBERRCT field of the LCB is updated (if 
nontext transfer) , the CCW is examined. 

If the failing CCW is a Read or Write, 

• If a Read Response to autopolling, the 
polling list address and entry size are 
obtained. The polling list is 
searched, and the new count and program 
is restarted with the first CCW. 

• If a text transfer, the error half word 
is updated and posted without a message 
(X'03') is indicated in LCBERRCT + 1. 
The "time- out" bit is set in the error 
ha If word. Linkage is made to the LER 
routine. 

• If this is a switched connection, a 
Disable is performed to hang up the 
transmitter. 

If tne failing CCW is a Prepare command 
or a Dial, the channel program is restarted 
with the first CCW. Upon return, normal 
retry is indicated, and return is made to 
IOS or the LER module, if required. 

If tne failing CCW is a poll CCW, the 
polling list address and entry size are 
obtained, the count and data address are 
set in the poll CCW. The channel program 
is restarted with the first CCW. 

If the retry has failed two times, the 
routine considers it a permanent error. 



(a) if the residual count is not zero,, 
there is a permanent error 
condition,. 

(b) if the residual count is zero, a 
Read Skip return indication (X'08') 
is set in LCBERRCT +1. The Read 
Skip CCW is set and executed. Upon 
return from the EXCP, the routine 
returns to IOS. 

• For a switch initial program, the third 
CCW is used to restart. The control 
unit failure is recorded in the SDR. 

If the retry has failed two times, the 
routine proceeds with a permanent error,. 



ERROR POST ROUTINE (CHARTS AH AND AI) 



Module Name : IGE0504E 

Function : After initialization, a branch 
is taken according to the indication set in 
LCBERRCT + 1 by the other ERP modules. 

If from a normal post, a permanent error 
is indicated in the IOB, If no message is 
required, an EXCP is issued to return to 
IOS. IOS detects the permanent error 
condition. 

If a disable return, the Redial/Enable 
sequence is indicated in LCBINCAM. For any 
error, the "hardware error" bit is set in 
the error half word. The sense bytes, CSW 
and CCW are restored for use in message. A 
permanent error condition is set in 
I0BFLAG1. If a message is not required, an 
EXCP is issued to return to IOS. 



LOST DATA ROUTINE (CHART AG) 

Module Name : IGE0U04E 

Function : After initialization, the CCW is 
examined. 



If a message is required for either 
entry, 

• If no operator control, linkage is made 
to the WTO (Write to Operator) module 
supplied by the system. 



Communications Serviceability Facilities 125 



• If an error occurred at the operator 
control terminal, linkage is made to 
the WTO module supplied by the operat- 
ing system. 

• If operator control and outboard re- 
cording (0BR) bits are indicated, the 
OBR oit is turned off and linkage is 
made to the OBR module. 

• If no outboard recording , a message is 
prepared. 

If a message is to be prepared for the 
console, 

• For a switched connection, include the 
dial digits in the message. The device 
type, adapter type, and terminal ID (if 
required) are put into the message. 
For an autopolled line, the index byte 
for the polling list is placed in the 
message. 

• For operator control, return is made to 
IOS through an £XCP and RETURN. 

• For no operator control, linkage is 
made to the Write to Operator module. 



BUS- OUT AND OVERRUN ROUTINE (CHART A J) 

Module Name : IGE0604E 

Function : After initializing, the routine 
determines if entered for bus- out check or 
overrun. 

If the failing CCW is a poll CCW or a 
Read Response to autopolling, linkage is 
made to the Bus-out and Overrun for Auto 
Poll module. 

Bus-out check: 

If failing CCW is a Write, 

• For a response expected (next CCW a 
Read) or an IBM Type III adapter, a 
Read Skip Return is indicated for the 
ERP Control module. The retry counter 
in the LCB is updated. The Read Skip 
CCW is set up in a save area after the 
CCWs. EXCP is issued to execute the 
Read Skip. Upon return, return is made 
to IOS. 

• For a text transfer and a type I or II 
adapter, linkage is made to the Error 
Post routine with no message indicated. 

• If not a text transfer, 

(a) If TWX, redial is set, and if a 
switched connection, the disable 
and redial sequence is bypassed. 
The retry counter in the LCB is 



updated and control unit failure is 
recorded in the SDR table. The 
channel program is restarted, and 
upon return, exit is made to IOS. 

(b) If dial, a disable-redial sequence 
is set. The retry counter in the 
LCB is updated, and control failure 
is recorded in the SDR table. The 
channel program is restarted. Upon 
return, exit is made to IOS. 



Overrun check: 
Overrun module. 



Linkage is made to the 



If an error occurs after two retries, a 
permanent error condition exists. 



LINK ROUTINE (CHARTS AK AND AL) 

Module Name : IGE0704E 

Function: This routine is entered as a 
return from special functions performed by 
ERP. 

If entry to routine was for the diag- 
nostic Write/Read, 

• For a Disable, control unit failure is 
indicated and the channel program 
restarted with the first CCW. Return 
is made to IOS. 

• For a diagnostic Read that failed, if a 
teletype adapter, a check is made for 
unit exception in addition to channel 
end/ device end. If an error is 
detected, control unit failure is indi- 
cated in the error half word. If an 
Enable is not required, linkage is made 
to the Error Post routine with indica- 
tion for a message. If Enable is 
required, the channel program is 
executed at the enable CCW. Return is 
made to IOS. 

• For a diagnostic Write failure, control 
unit failure is indicated in the LCB,. 
If Enable is required, the channel pro- 
gram is restarted at the Enable CCW. 
Return is made to IOS. If Enable is 
not required, the CSW, sense byte, and 
CCW is restored for the message, and 
linkage is made to the Error Post rou- 
tine with a message indicated. 

• For an Enable, if not channel end/ 
device end, control unit failure is 
indicated in the LCB. The sense byte, 
CSW, and failing CCW are restored for 
message and linkage is made to the 
Error Post routine with message 
indicated. 

If entry was for a Read Skip, post with 
message is indicated in the I£BERRCT +1 
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field of the LCB. Linkage is made to the 
Read Skip Return routine. 

If entry to the routine was for a Write 
Break: 

• If channel end f device end, and unit 
check are indicated, the sense byte is 
tested. If any indication other than 
bus-out, linkage is made to the Error 
Post routine. 

• If a text transfer and if channel end, 
device end, or a bus-out indication, 
linkage is made to the Error Post rou- 
tine with no message indicated. 

• If no text transfer and initial type 
channel program, the channel program is 
restarted with the first CCW. Return 
is made to IOS. If not an initial 
channel program, linkage is made to the 
Error Post routine. 

If entry to the routine is made for the 
special OPEN, linkage is made to the Spe- 
cial Open and Checkpoint/Restart module. 



STATUS CHECK ROUTINE (CHART AM) 



Module Name: 



IGE0804E 



Function : The routine branches to the 
operating system supplied Interpreter to 
determine the type of status check. 

For chaining, program or protection 
check, 

• If a nonswitched connection or failing 
CCW is a Disable, the routine indicates 
an outboard recording, and linkage is 
made to the Error Post routine. 

• If switched connection, the routine 
saves the CCW sense byte, CSW, and 
indicates a Disable Return. The chan- 
nel program is restarted. 

For an unit exception, the retry counter 
in the LCB is updated and, 

• If teletype I adapter, the CCW for a 
break is set up. 

• If 2701 control unit or permanent 
error, the Read Skip CCW is set up. 
The sense byte, and CSW are saved, and 
a Read Skip return is indicated. After 
execution of the Read Skip, return is 
made to IOS. 

• Otherwise, a retry is done on the Write 
CCW. Upon return from the EXCP, return 
is made to IOS- 



After two retries, a permanent error 
condition exists. 



COMMAND REJECT* EQUIPMENT CHECK, SIOCCl* 
SNO ERROR ROUTINE (CHART AN) 



Module Name : IGE0904E 

Function : After initialization* action is 
taken according to the error. 

If initial selection error (SIO condi- 
tion code equal to 1) , control unit failure 
is recorded and the retry counter is 
updated in the LCB.. The channel program is 
restarted. Return is made to IOS,. 

If command reject error,, the retry coun- 
ter in the LCB is updated and the channel 
program is restarted at the command in 
error. Return is made to IOS,. 

If equipment check or "should not occur" 
(SNO) error, the outboard recording is 
indicated. The proper error indicator is 
set in the error half word. For a non- 
switched connection, linkage is made to the 
Error Post routine. For a switched connec- 
tion, the routine indicates a Disable 
Return and saves the sense byte* and CSW. 
After the EXCP of the Disable, return is 
made to IOS. 

After two retries* a permanent error 
condition exists. 



READ SKIP RETURN ROUTINE (CHART AO) 

Module Name : IGE0004F 

Function : After initialization* action is 
taken according to errors found. 

For the following indications the 
"should not occur" bit is set in the error 
halfword, and linkage is made to the Error 
Post routine: unit check, unit exception, 
command reject, bus-out check, equipment 
check, overrun* or residual count equal to 
zero. 

If the second CCW is for a switched 
line, the Read Skip sense byte is checked. 

• For intervention required or time-out, 
a Disable CCW and Disable Return is 
set. The channel program is restarted 
at the Disable CCW. 

• Otherwise, if no text transmitted, the 
channel program is restarted at the 
third CCW. Return from the error EXCP 
is to IOS. 
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• For a text error, linkage is made to 
the Error Post routine with no message 
indication set. 

If the second CCW is not for a switched 
line , 

• For a text transfer, linkage is made to 
the Error Post routine with no message 
indicated. Prior to linking, if the 
Read Skip ended with a time-out or 
intervention required, the routine 
indicates that reselection is 
necessary. 

• For no text transfer, the channel pro- 
gram is restarted at the first CCW. 
Return from the error EXCP is to IOS. 



DIAGNOSTIC WRITE/READ ROUTINE (CHART AP) 

Module Name : IGE0104F 

Function : After initialization, the diag- 
nostic Write/Read indication is set in the 
LCBERRCT +1 field of the LCB for returning. 
The CCW in LCBERCCW is set up with a Dis- 
able. Enable is set at completion unless a 
switched connection. If a TWX or 2260 and 
type III adapter, the Disable CCW for the 
22 60 is skipped and the chained Enable is 
removed. The address and command code for 
the diagnostic Read and Write are set in 
the channel program area. The test data 
for the particular device is also moved to 
the channel program area. The EXCP is 
issued, and upon return, exit is made to 
IOS. 



LINE ERROR RECORDING ROUTINE (CHART AQ) 

Module Name : IGE0204F 

Function: A test is made on the LERFLG1 
field of the LCB. If operator control is 
to put out a threshold message,, linkage is 
made to the Operator Control LER module. 

If a normal update to the counters, one 
is added to the proper error counter in the 
LCB. If the transmission threshold value 
specified has not been reached, the routine 
compares the updated threshold counter. If 
that threshold nas not been reached,, an 
exit is made to the module indicated in 
LCBERRCT +1, i.e., diagnostic Write/Read, 
Error Post routine, or IOS. If the thresh- 
old value has been reached (not transmis- 
sion) message output is indicated in the 
LERFLG1 byte of the LCB. All threshold 
values are added to their respective accu- 
mulative counters. 

If no message is to be printed, the 
counters are cleared and the exit is to the 
module indicated in LCBERRCT +1, i.e.. 



Error Post routine. Diagnostic Write/Read 
routine, or IOS. If no operator control is 
specified, the threshold counters are con- 
verted to decimal and inserted into the 
message. A Write to Operator macro is 
issued to write the message. 



OPERATOR CONTROL LER ADDITION ROUTINE 
(CHART AR) 

Module Name : IGE0304F 

Function : This module is linked by the 
Line Error Recording module. If this 
module was entered to update the temporary 
counters, because a message is to be writ- 
ten with existing counters, one is added to 
the temporary counters and exit is made to 
the module indicated in the LCBERRCT + 1 
field of the LCB, i.e.. Diagnostic Write/ 
Read routine. Error Post routine, or IOS. 

If the temporary counters are no longer 
needed, they are added to the corresponding 
threshold counters, and the temporary coun- 
ters are cleared. Return is made to the 
Line Error Recording module, which proceeds 
as a normal update. 



OPEN AND CHECKPOINT RESTART ROUTINE 
(CHART AS) 

Module Name : IGE0404F 

Function : This module is entered from the 
ERP control module after the SIO has been 
issued. 

• If the condition code is 3, linkage is 
made to the Not Operational SIO module. 

• If the condition code is a or 1, the 
TP Op code is examined. For the condi- 
tion code of the failing CCW is used; 
for condition code of 1 the first CCW 
is considered in error. 

(a) For an Enable, NOP, or SAD command, 
a channel end or device end indica- 
tion is valid, so the line can be 
started; otherwise, there is an 
error. 

(b) For a Write Break, if the CSW indi- 
cates channel end/device end alone, 
the break was successful so the 
line is started. If a unit check 
is indicated, the sense byte is 
examined. For a data check, the 
channel program is restarted with 
the first CCW to retry the Write 
Break unless retried two times. If 
retried two times, an error exists. 
For all other conditions an error 
exists . 
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(c) For a Read Skip, a test is made in 
the status and sense bytes . If no 
errors exist, the line is started. 

• For an error, if it is Open time, link- 
age is made to the Error Post module to 
post complete with error. Otherwise, 
the line number, operation code, sta- 
tus, and sense bytes are placed in the 
message, A Write to Operator macro is 
issued to write the message. Upon 
return, the CCWs are restored and the 
line is started bypassing the check for 
OPE,* , 

• To start the line the CSW is initial- 
ized for the retry. An EXCP is issued 
to retry the channel program. If it is 
Open time, an indicator is cleared for 
Line SIO. Error corrected is indicated 
to I OS in LCBFLAG1. An ERREXCP (SVC15) 
is issued to return to IOS, 



NOT OPERATIONAL START I/O ROUTINE 
(CHART AT) 

Module Name : IGE0504F 

Function : After initialization, the rou- 
tine issues a Write to Operator macro, 
which writes the message, IEC8 041 CON- 
TROL UNIT NOT OPERATIONAL. Upon return, a 
Write to Operator with Reply is issued to 
write the following message: IEC8 04A REPLY 
CONT OR POST. 

If the reply is a Cont, 

• If this is OPEN time, an EXCP is issued 
to return to IOS to retry the channel 
program. 

• If this is not OPEN time, the SAD and 
Enable commands are needed. If a 2702, 
the SAD command is used and then stored 
in the channel program. A CCW is set 
up for an Enable except for the type 
III adapter. A Read Skip CCW is placed 
in the next CCW except for a type I 
adapter, which uses a Write Break CCW. 
The channel program is executed and 
upon return, exits to IOS. 

If the reply is a Post, 

• If this is OPEN time. Idle Open is 
indicated in the CCW in the LCB and 
normal completion is set in the IOB. 
Return is to IOS via an EXCP. 

• If it is not OPEN time, the routine 
sets the "cleanup" flag in LCBSTATE and 
a special flag for Line End and Free 
BRB to ignore the line. The IOB is set 
to indicate a permanent error to IOS. 
Return is to IOS via an EXCP. 



BUS-OUT AND OVERRUN FOR AUTO POLL ROUTINE 
(CHART AU) 



Module Name : IGE0604F 

Function : After initialization, the rou- 
tine tests for bus-out or overrun checks. 

For bus- out check, 

• If the failing CCW is a poll operation, 
the address of the polling list and the 
length of the entries are obtained. 

The new count and data address are 
stored in the poll CCW. The retry 
counter is updated, and the control 
unit failure is recorded. The channel 
program is retried with the first CCW. 

• If the failing CCW is a Read Response 
to polling v the address of the polling 
list and the length of the entries are 
obtained. A search is made for the 
correct data address and count for the 
Poll CCW. The retry counter is updated 
and control unit failure is recorded. 
The channel program is retried with the 
first CCW. 

For an overrun check, the "should not 
occur" bit is set in the error halfword and 
a permanent error condition exists. 

After two retries, a permanent error 
condition exists. For a bus-out the con- 
trol unit failure is set in the error half- 
word. An indication is set for outboard 
recording. Linkage is made to the Error 
Post routine. 



OVERRUN ROUTINE (CHART AV) 

Module Name : IGE070F 

Function : This module is linked to as the 
result of an overrun indication found by 
the IGE0604E module. After initialization, 
the failing CCW is examined. 

For a Read CCW, 

• If text transfer, linkage is made to 
the Error Post routine with no message 
indicated. 

• If an initial channel program and a 
response to a TWX ID, the channel pro- 
gram is restarted after the Dial/Enable 
sequence. 

• otherwise, the control unit failure is 
recorded and the channel program is 
retried at the first CCW« Upon return 
from the error EXCP, return is made to 
IOS. 
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For a NO-OP CCW , 



text 



is the text of the message. 



• If a Read Initial channel program, 
linkage is made to the Error Post rou- 
tine with no message indicated. 

• Otherwise, the "should not occur" bit 
is set in the error half word and a per- 
manent error condition exists. 

If the retry has failed two times, a 
permanent error condition exists. 



ON-LINE TERMINAL TEST 

The Resident Terminal Test routine is 
the only routine of the on-line terminal 
test that remains in storage at all times. 
This module is located by a "V" type 
address constant in the LPSTART macro 
expansion. 

The Header Analysis routine is brought 
into the SVC transient area and executed by 
a SVC 77 from the Resident Terminal Test 
routine. 

The Header Analysis routine brings the 
needed terminal test routines into the SVC 
transient area. 

These routines perform the function of 
examining the test request message and per- 
forming the desired test. 

The test request message is sent from 
the terminal to initiate the test. The 
format of this message is: 



99999 form at- integer test- integer type- 
integer [addr-char (s)] [unit-char (s) ] 
[text-char (s)] end-char 

where: 

99999 is the test activation code. 

format is zero or one. 

test specifies kind of test (1 through 
9). 

type specifies type of terminal test is 
for one (1 through 6). 

addr address of the terminal. 

• Format means exact address. 

• Format 1 means a symbolic 
address . 

unit specifies particular unit of the 
terminal . 



end specifies the end of the Test Re- 
quest Message. 



RESIDENT TERMINAL TEST ROUTINE (CHARTS QL 
AND QS) 



Module Name: 



IECKONLT 



Function : This routine recognizes terminal 
test activity, calls terminal test tran- 
sient routines, sends test messages, 
cleanup, stops and restarts line operation. 

The LPSTART macro generates a linkage to 
the module that checks the incoming mes- 
sages for the test activation code. If the 
code is not present, normal operation of 
LPS continues. 

If the test activation code is present, 
the buffers associated with the line opera- 
tion are posted to a test QCB. The subtask 
activated (Terminal Test Buffer Routing 
subtask) will set test identification flags 
in the buffer prefix containing the test 
request and post it to the LPS queue. Sub- 
sequent buffers will be posted to the 
available buffer queue. (terminal tests 
will utilize only the buffer containing the 
header segment.) 

Upon the next execution of the LPSTART 
macro, the buffer with the "test request" 
and "test identification" flags is pro- 
cessed by the routine. The "test identifi- 
cation" flags are recognized at entry to 
the module and the terminal test transient 
routines are called. These routines vali- 
date the test request and set up the appro- 
priate test. 

The buffer is then posted to another 
test queue control block. The subtask 
activated stops the line to be utilized by 
the terminal tests by placing a test sub- 
task control block in the STCB chain of the 
appropriate LCB. 

After the line operation has been 
stopped, further identification flags are 
set in the buffer prefix and again it is 
posted to the LPS queue. Upon the follow- 
ing execution of the LPSTART macro, these 
flags are recognized at entry into the 
module and the test message is sent to the 
terminal. 

Upon completion of the test message 
transmission, the Line End Appendage posts 
the buffer to the LPS queue. All areas and 
buffers utilized by the terminal tests will 
then be freed and QTAM line operation will 
be restarted on the subject line. 
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If a test message is to be returned to 
the requesting terminal on a dial line, the 
transient routines are called immediately 
upon recognition of the test activation 
code. The test message is then sent to the 
terminal without utilizing the Stop Line 
subtask. Buffers are released to the 
available buffer queue by the buffer rout- 
ing subtask. 

The Terminal Test Buffer Routing subtask 
and Terminal Test Stop Line subtask are a 
part of the Resident Terminal Test routine. 



Module Names : IGC0107G, IGC0207G, 
IGC0407G, IGC0307G, IGC0507G, IGC0607G 

Function : These routines cause the genera- 
tion of channel programs according to the 
terminal used. 

All of the following attributes are 
independent of the terminal type. Addi- 
tional functions are present in specific 
Terminal Test modules (example: the IBM 
1050 module, IGC0207G # considers the dial 
capability) . 



TERMINAL TEST HEADER ANALYSIS ROUTINE 
(CHART QA) 

Module Name : IGC0007G 

Function : This routine performs prelimi- 
nary validation of the test request, trans- 
lates the input message as necessary, and 
sets up terminal addressing characters. 

The input message is located and any 
translation necessary is performed. Trans- 
lations that may be needed are symbolic 
addresses of terminals and translation 
between ASCII and BCD. 

The proper terminal addressing charac- 
ters are placed in the buffer prefix along 
with the addresses of the LCB and UCB. 

Control is then passed to the proper 
terminal test routine to complete the acti- 
vation of the on-line terminal test. 



TERMINAL TEST ROUTINES (CHARTS Q3 , Q4, Q5, 
Q6, AND Q8) 



The header of the test request message 
is inspected. If any part of the header is 
found to be invalid (example: test-integer 
of zero) „ the no-test switch is set and 
control is returned to the Resident Termi- 
nal Test module. If the header is valid* 
processing of the test request message 
continues. 

If the format-integer is zero, the addr- 
char is exact and is moved directly into 
the buffer. With a format -integer of 1, 
the addr-char must be interpreted and the 
proper characters placed in the buffer. 

A GETMAIN is issued to provide area for 
building channel programs and output data. 
If no main storage is available, the no- 
test switch is set and control is returned 
to the Resident Terminal Test module. 

All general CCWs are built before deter- 
mining the type of test to be performed. 
After the test type has been determined, 
the CCWs necessary for the data are con- 
structed and any message to be sent to the 
terminal is prepared. Control is then 
returned to the Resident Terminal Test 
module. 
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QTAM CHARTS 



Chart AB. Data Check Routine 
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Chart AC. 



Time Out Routine 



IGE0204E 



TOCKCNT 
-A2- 



C 



J 



STORE RETRY 
COUNT IN 
ERP COUNTER 



INITIALIZE 
REGISTERS 



TOSWT A3 



SET TIMEOUT 
ERROR IN ERROR 
HALF WORD 



INDICATE 
POST WITH 
MESSAGE 



-ci- 

SET NEXT 
MODULE EQUAL 
TO LINE ERROR 
RECORDING 




INITIALIZE 
IOBSTARTWITH 
RESTART ADDRESS 



r-Dl- 
ADD ONE TO SUM 
OF ERP AND 
EOBLC COUNTERS; 
ZERO EOBLC 
COUNTER 



ERROR 
EXECUTE 
CHANNEL 
PROGRAM 
SVC 15 



SET RESTART 
AT FIRST CCW 




SAVE SENSE 
AND STATUS 



SET NEXT 
MODULE EQUAL 
TO POST 



-D3- 
INDICATE 
DISABLE RETURN 
AND SET UP 
DISABLE CCW IN 
LCBERCCW 



-05 ■ 

SET TIMEOUT 
CODE FOR 
LER UPDATE 



-D4— 

GET ADDRESS 
OF LINK 
ROUTINE 
FROM CVT 



RESTART 
ADDRESS IN 
LCBERCCW 



^E4 



NKTO 
NEXT MODULE, 








F4 ^^ 

©f LINK TO \ 
1 H AUTOPOLL ) 
V MODULE J 



G3 READ 
^RESPONSE TCN 
.AUTOPOLL^ 



MOVE DISABLE 
OP CODE TO 
FIRST CCW 



rG4 

SET RESTART 
ADDRESS EQUAL 
TO LCBCPA+16 



YES 



HAS \ YES 
RETRY FAILED . 






INDICATE 
CORRECT 
TO I OS 



r-Ki- 

SET 'SHOULD NOT 
OCCUR' ERROR 
AND INDICATE 
NO LINE ERROR 
RECORDING 




I-K2- 

INDICATE 
POST WITHOUT 
MESSAGE 



ERROR 
EXECUTE 
CHANNEL 
PROGRAM 



-K4- 

INDICATE NO 
LINE ERROR 
RECORDING 



C 



RETURN SVC 3 



) 



QTAM Charts 133 



Chart AD. Intervention Required Routine 



IGE0004E 
-Al — 



C 



ENTRY 




TOSWT 
r A5- 



ADJUST TO 
FAILING CCW 




TORDPOLL 
r C2- 



TOPOLL 
_D1 



YES 



TOPOLSUB ADD5 



GET POLLING 
LIST ADDRESS 
AND ENTRY 
SIZE 



TOPOLSUB ADD5 



GET POLLING 
LIST ADDRESS 
AND ENTRY SIZE 



ADJ5 



SET COUNT 
EQUAL TO 
RESIDUAL 
COUNT + 
WIDTH 



-Fl- 

SET DATA ADDR. 

= POLL LIST ADDR 

+ ORIGINAL 

RESIDUAL COUNT 

-WIDTH 




TOEXCP 
r-B4 



NO 



SET TIMEOUT 
ERROR IN ERROR 
HALFWORD 



INITIALIZE 
IOBSTARTWITH 
RESTART ADDRESS 



TOPOST 
r B5 — 



INDICATE POST 
WITH MESSAGE 



ERROR, 
EXECUTE 
CHANNEL 
PROGRAM 
SVC 15 



TOLERB 
-D4 — 



SET TIME OUT 
CODE FOR LER 
UPDATE 




BUMP TO NEXT 
ENTRY IN LIST 



C 



ENTRY 



r E4 — 

GET ADDRESS OF 
LINK ROUTINE 
FROM CVT 



pF2- 

SET DATA 
ADDRESS EQUAL 
TO ADDRESS OF 
MATCH ENTRY 



•-F4 
(UN 
VNE> 



TOPOLSUB 

r E5 — 



3 



GET POLLING 
LIST ADDRESS 
FOR THIS RLN 
FROM THE DCB 



K TO 
NEXT MODULE 



) 



|-G2 — 

SET COUNT 
EQUAL TO COUNT 
IN 2ND POLL + 
POLL LIST ADDR - 
ADDR OF MATCH 



TOCOM 
j-H2 



STORE NEW 
COUNT IN FIRST 
POLL CCW 



rJ2— 

STORE NEW 
DATA ADDRESS IN 
FIRST POLL CCW 




RESTORE POLL 
CCW OP CODE 
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Chart AE. Intervention Required Routine (Continued) 



c 



ENTRY 



J 



INITIALIZE 
REGISTERS 



-CI — 
ADD ONE TO 
SUM OFERP AND 
EOBLC RETRY 
COUNTERS, ZERO 
EOBLC COUNTER 



-Dl_ 

SET NEXT 
MODULE EQUAL 
TO LINE ERROR 
RECORDING 





STORE UPDATED 
RETRY COUNT IN 
ERP RETYR 
COUNTER 




D2_ 
INDICATE 
'SHOULD NOT 
OCCUR' ERROR 
AND NO LINE 
ERROR RECORDING 



IRMSG 



INDICATE POST 
WITH MESSAGE 




D3- 



RESTART ADDRESS 
IS LCBCPA 



E3^\ 

IS SECOND 

<ccw 
A DIAL OR 
SENABLE 
\> 

YES 



SET TIMEOUT 
EXCEEDED IN 
ERROR HALFWORD 



,-F3- 



RESTORE DISABLE 
OP CODE IN 
LCBCPA 



STORE RETRY 
COUNT IN 
ERROR HALF 
WORD 



INDICATE LER 
TO EXIT TO 
POST 



SAVE SENSE 
AND STATUS 




INDICATE POST 

WITHOUT 

MESSAGE 



_J3_ 
INDICATE 
DISABLE RETURN 
AND SET UP 
DISABLE CCW IN 
LCBERCCW 



NAME OF 
NEXT MODULE 
IS POST 



RESTART 
ADDRESS IS 
LCBERCCW 



IRRETRY 
B4 



INITIALIZE 
IOBSTART WITH 
RESTART ADDRESS 



ERROR EXECUTE 
CHANNEL 
PROGRAM 
SVC 15 




D4 LINE 

< ERROR 
RECORDING 
sREQUIRED 



NO 



C 



RETURN SVC 3 







© 



IRLERB 
F4__ 



SET 

INTERVENTION 
REQUIRED CODE 
FOR LINE ERROR 
RECORDING 



IRLINK 
G4 

GET LINK 
ROUTINE 
ADDRESS FROM 
CVT 



G 



LINK TO "\ 

NEXT MODULEy 
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Chart AF. Time Out and Data Check for Auto Poll Routine 



IRPOLSUB AFD5 



GET POLLING 
LIST ADDRESS 
AND ENTRY 
SIZE 



IRRDPOLL 

,_B2 



IRPOLSUB AFD5 



GET POLLING 
LIST ADDRESS 
AND ENTRY 
SIZE 



-CI — 

SET COUNT 
EQUAL TO 
RESIDUAL 
COUNT + WIDTH 




_D1__ 

SET DATA ADDR. 

= POLL LIST 

ADDR + ORIGINAL 

RESIDUAL COUNT 

-WIDTH 



C3 INDEX N 

/BYTE STORED 

\= INDEX BYTE'' 

N |N ENTRY' 



YES 



NO 



BUMP TO 
NEXT ENTRY 
IN LIST 



D3- 
SET DATA 
ADDRESS EQUAL 
TO ADDRESS OF 
MATCH ENTRY 



C 



ENTRY 



r E3- 
SET COUNT EQUAL 
TO COUNT IN 
2ND POLL + POLL 
LIST ADDR. - 
ADDR. OF MATCH 



IRCOM 
F3 — 



IRPOLSUB 

,E5 



) 



GET POLLING 
LIST ADDRESS FOR 
THIS RLN. FROM 
THE DCB 



STORE NEW 
COUNT IN FIRST 
POLL CCW 



G3- 

STORE NEW 
DATA ADDRESS 
IN FIRST POLL 
CCW 



RESTORE POLL 
CCW OF CODE 
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Chart AG. 



Lost Data Routine 



IGE0404E 
-Al — 



C 



J 



INITIALIZE 
REGISTERS 



r-Cl- 



ASSUME RESTART 
IS LCBCOA 



-Dl- 

ADD ONE TO SUM 

OF RETRY 

COUNTERS: ZERO 

EOBLC RETRY 

COUNTER 





SAVE SENSE 
AND STATUS 



■C4- 



SET DISABLE RE- 
TURN AND SETUP 
DISABLE CCW IN 
LCBERCCW 



RECORD CONTROL 
UNIT FAILURE IN 
SDR TABLE 



© 



LDEXCP 
E2 



LDERRC 
D4— 



INITIALIZE 
IOSTART WITH 
RESTART ADDRESS 




-Gl- 



ERROR,EXECUTE 
CHANNEL PRO- 
GRAM SVC 15 



SET SHOULD NOT 
OCCUR IN ERROR 
HALF WORD 



©: 



G 



RETURN SVC 3 



D 



H1 IS THIS A \ YF <- 
< SWITCH ^ 
CONNECTION 



, — J2- 



RESTART ADDRESS 
IS LCBCPA + 16 



LDTEXT 
E3 — 



STORE RETRY 
COUNT IN ERROR 
HALF WORD 



RESTART ADDRESS 
IS LCBERCCW 




-G3- 



SET READ SKIP 
RETURN 



INCIDATE POST 
WITHOUT MES- 
SAGE 




-G4- 



SET UP READ 
SKIP CCW IN 
LCBERCCW 



NAME OF NEXT 
MODULE = POST 



-J3- 



-H4- 

SAVE SENSE AND 
STATUS AFTER TIC 
CCW IN CPA 



GET ADDRESS OF 
LINK ROUTINE 
FROM CVT 



f 1 ' 



LINK TO 
NEXT MODULE 



) 




f-G5 



NEW ADDRESS = 
OLD ADDRESS + 
ORIGNAL COUNT 
-WIDTH- 
RESIDUAL COUNT 



STORE NEW 
COUNT IN 
FIRST POLL 

CCW | 



-J5 — 

STORE NEW AD- 
DRESS IN FIRST 
POLL CCW 
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Chart AH. Error Post Routine 



IGE0504E 



C 



D 



INITIALIZE 
REGISTERS 



SET TRANSMIT 
ERROR IN ERROR 
HALF WORD; 
SET COUNT FOR 
ID MOVE = 2 




SET CONTROL 
UNIT ERROR IN 
ERROR HALF 
WORD 



RESTORE SAVED 
SENSE AND 
STATUS 



PONORM 
-Kl 



INDICATE 
PERMANENT 
ERROR TO IOS 



INITIALIZE 
CCW REGISTER 



-D2- 



SET NEXT 
MODULE WRITE 
TO OPERATOR 



NEXT MODULE 
= OUTBOARD 
RECORDER 




E2 IS 
y OPERATOR 
\ CONTROL 
SPECIFIED' 



YES 



TERROR OCCUR vpc - 
<WITH OPERATORV- - 
XONTROL TERM 



POGO 
i-E3- 




RETURN SVC 3 



) 




POLL 



05 
~/ y SHOULD NOT 
XXCUR' ERRORS 



ACCESS 
ADDRESSING 
CHARACTERS 
FROM TERMTBL 



-E4- 




TERMINAL ID 
ADDRESS FROM 
LCBPOLPT 



INDICATE NO 

NEXT 

MODULE 




TERMINAL ID 
ADDRESS FROM 
LCBCPA +8 



STORE INDEX 
BYTE IN 
MESSAGE 
AREA 



-H2- 
INDICATE 
I/O ERROR 
MESSAGE FOR 
OPERATOR 
AWARENESS 



-H3- 

STEP TO 

POLLING 

CHARACTERS 



PUT OP CODE 
OF FAILING 
CCW IN 
MESSAGE AREA 



I-K2- 



© 



MOVE ID 
CHARACTERS TO 
MESSAGE 
AREA 



PONOID 
-H4 



INDICATE 
EXTENDED 
MESSAGE 
FORMAT 




MOVE LINE 
NUMBER TO 
MESSAGE 
AREA 



<T* 




K3 1030, 
2260 OR 2740 
WITH STATION 
CONTROL 



ZERO 
LCBSENSE + 1 
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Chart AI. Error Post Routine (Continued) 



-Bl ■ 

SET SECOND 
SENSE BYTE IN 
UCB70 X 'FF' 



-Cl- 



MOVE TP OP 
CODE FROM CCW 
TO MESSAGE 
AREA 




QTAM Charts 139 



Chart AJ. Bus out and Overrun Routine 



IGE0604E 



C 



Bl~ 



J 



SET 'SHOULD 
NOT OCCUR 
ERROR' 



NAME OF 
NEXT 
MODULE = 
POST 



BOCKCNT 
-B2- 



STORE 
RETRY 
COUNT 
IN ERP 
COUNTER 



INITIALIZE 
REGISTERS 




SET CONTROL 
UNIT FAILURE 






-F1- 
ADDONE TO 
SUM OF ERP 
AND EOBLC 
CTRS. ZERO 
EOBLC COUNTER 



RESTART 
ADDRESS IS 
LCBCPA 



■D2- 

RECORD 

CONTROL UNIT 
FAILURE IN 
SDR TABLE 







SET DISABLE 
RETURN 



BOEXCP 
E2 



INITIALIZE IOB 

START 

WITH RESTART 

ADDRESS 



-F2- 
ERROR 
EXECUTE 
CHANNEL 
PROGRAM 
SVC 15 



G 



SAVE SENSE 
AND STATUS 



SETUP DISABLE 
CCW IN 
LCBERCCW 
RESTART ADDRESS 
-LCBERCCW 



BOPOST JT" 
-G3 *- 




BOSKIP 



SET READ 

SKIP 

RETURN 



OVTXT 
r— D4- 



STORE RETRY 
COUNT IN 
ERP COUNTER 



STORE 

RETRY COUNT 
IN ERROR 
HALFWORD 



SETUP READ 
SKIP CCW IN 
LCBERCCW 




r-E5- 



-F4- 



RESTART 
ADDRESS IS 
LCBERCCW 



INDICATE 
POST WITHOUT 
MESSAGE 



RETURN SVC 3 



) 



INDICATE 

OBR 

REQUIRED 




NAME OF NEXT 
MODULE IS 
IGE060UF 



BOLOOP 

-F5- 



SAVE SENSE 
AND STATUS 
AFTER TIC 
IN CPA 



GET NAME 
OF OVERRUN 
MODULE 



GET LINK 
ROUTINE 
ADDRESS FROM 
CVT 




K2- 
/'LINK TO NEXT 
VMODULE 



) 



RESTART 
ADDRESS IS 
LCBCPA+16 



-M B2 



140 



Chart AK. Link Routine 
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Chart AL. Link Routine (Continued) 



ENDING CONDITIONS 
RECEIVED ON 



-4 pDIAGNOSTIC- 

DWRDRD T READ 



DIAGNOSTIC 
WRITE 




CHANNEL 
DEVICE 
, UNIT 
EXCEPTION ALONE 



NO 




^-DISABLE-, 
DWRDI S Y 
"D4 

SET CONTROL 
UNIT ERROR 
IN ERROR 
HALF WORD 



© 



RESTART 
ADDRESS IS 
DIAGNOSTIC 
WRITE 



SET CONTROL 
UNIT ERROR IN 
ERROR HALF 
WORD 



DWEXCP 
rD4 



INITIALIZE 
IOBSTARTWITH 
RESTART ADDRESS 
AND ZERO 
SENSE 



•E2- 

SAVE SENSE BYTE 

FROM 

DIAGNOSTIC 

OPERATION 




ERROR, 
EXECUTE 
CHANNEL 
PROGRAM 
SVC 15 



C 



RETURN 
SVC 3 



3 
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Chart Aixl. Status Check Routine 



IGE0804E 
-A2 



C ENTER ) 



_B2_ 
INITIALIZE 
REGISTERS AND 
SET CONTROL 
UNIT ERROR IN 
ERROR HALF WORD 



RESTART 
ADDRESS IS 
SPECIAL CCW 



©- 



C2— 
ADD ONE TO SUM 
OF ERPAND 
EOBLC COUNTERS 
AND ZERO EOBLC 
COUNTER 



STINT 
i-iD2- 



© 



STRETRY 
r-C5 — 



INITIALIZE 
IOBSTARTWITH 
RESTART AD- 
DRESS AND ZERO 
SENSE 



ERROR INTER- 
PRETER (OS SUB- 
ROUTINE) 



j- E 1 — 

SET 'SHOULD NOT 
OCCUR' ERRORS 
IN ERROR HALF 
WORD 



SHOULD NOT 
OCCUR ERRORS 



NOTE: ERROR INTERPRETER RETURNS TO 
STSNO, STPERM OR STUNEX 



ERROR, 
EXECUTE 
CHANNEL 
PROGRAM 



' UNIT EXCEPTION 



CHAINING CHECK 
PROGRAM CHECK 
PROTECTION CHECK 



RETURN 
SVC 3 




SAVE SENSE 
STATUS AND 
FAILING CCW 



INDICATE OBR 

RECORDING 

REQUIRED 



r-Hl- 



.G2_ 



SETUP 

DISABLE 

CCW 



NAME OF NEXT 
MODULE IS POST 
(IGE0504E) 



• Jl- 



SET 

DISABLE 

RETURN 



GET ADDRESS OF 
LINK ROUTINE 
FROM CVT 






■J2- 



RESTART 
ADDRESS IS 
DISABLE CCW 



NK TO NEXT 
MODULE 



) 



© 




SAVE SENSE 
AND STATUS 
AFTER CHANNEL 
PROGRAM 
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Chart Art, Command Reject, Equipment Check, SIO CC 1, SNO Error Routine 



IGE0904E 



C 



J 



r-Bl- 
INIT, REGS, ADD 
1 TO SUM OF ERP 
ANDEOBLC CTRS, 
ZERO EOBLC CTR 



START \ N0 
Q/O CONDITION> 
vCODE = }y 



© 




RECORD 

CONTROL UNIT 
FAILURE IN 
SDR TABLE 



CKCNT 



© 




EQEXCP 
-Fl 



INITIALIZE 
IOBSTARTWITH 
RESTART ADDRESS 



ERROR, 
EXECUTE 
CHANNEL 
PROGRAM 
SVC 15 







RETURN SVC 3 



) 



CKEQCHK 




C3 CHANNEL^ 

/ DATA CHECK>i 

OR EQUIPMENT 

NCHECK^ 

N> 

YES 



SIPOST 




INDICATE OBR 

RECORDING 

REQUIRED 




POST 
-G3- 



INDICATE 
POST WITH 
MESSAGE 



r-H3- 



NAME OF NEXT 
MODULE IS 
POST (IGE0504E) 



■ J3- 



GET ADDRESS OF 
LINK ROUTINE 
FROM CVT 



Q 



K3 

LINK TO NEXT 
MODULE 



D 



I-C4- 



SET 'SHOULD NOT 
OCCUR" ERROR IN 
ERROR HALF WORD 



-D4- 



USE DUMMY 
CCW ADDRESS 
IN CSW 



r D5- 



CLEAR SIO 
CONDITION 
CODE IN LCB 



SAVE SENSE 
AND STATUS 



r G4- 



SETUP 
DISABLE CCW 



SET DISABLE 
RETURN 



RESTART 
ADDRESS 
DISABLE CCW 
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Chart AO. Read Skip Return Routine 




INDICATE 

RE-SELECTION 

NECESSARY 



RDNOMSG 

r-K2 



SETUP 
DISABLE CCW 



SET DISABLE 
RETURN 



INITIALIZE 
IOBSTARTWITH 
RESTART 
ADDRESS 



RESTART 
ADDRESS IS 
DISABLE CCW 



ERROR, 
EXECUTE 
CHANNEL 
PROGRAM 
SVC 15 



INDICATE POST 
NO MESSAGE 



RETURN SVC 3 



) 
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Chart AP. Diagnostic Write/Read Routine 



IGE0104F 



f ENTER J 



INITIALIZE 
REGISTERS 



C3- 

INDICATE 
DIAGNOSTIC 
READ/WRITE 
RETURN 



•D3- 



SAVE SENSE, 
STATUS AND 
FAILING CCW 



E3- 
SETUP 

DIAGNOSTIC 
READ/WRITE 
CHANNEL 
PROGRAM 



-F3- 

MOVE DEVICE 
DEPENDENT DATA 
TO CHANNEL 
PROGRAM AREA 



■G3- 
STORE ADDRESS 
OF DATA IN 
DIAGNOSTIC 

READ/WRITE 
CCW'S 



H3- 

ERROR,EXECUTE 
CHANNEL 
PROGRAM 
SVC 15 



/" J3 RETURN *\ 
V SVC 3 J 
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Chart AQ. Line Error Recording Routine 



IGE0204F 



C ENTER J 



INITIALIZE 
REGISTERS 



CI /is\ 

„ OPERATOR^ 
^CONTROL ABOUT) YC 

\ro output/ 

MESSAGE ( D2 ] 

s 

NO 



r C2 

NAME OF NEXT 
MODULE IS 
OPCTL LER 
(IGE0304F) 



DETERMINE 
UPDATE TYPE 



LERLINK 
-D2 




LERMSG 
r B4 — 



GET LINK 
ROUTINE 
ADDRESS FROM 
CVT 



CLEAR UPDATE 
INDICATOR 



G 



E2_ 

LINK TO NEXT 

MODULE 



) 



Fl- 

ADD ONE TO 
THRESHOLD 
COUNTER TO BE 
UPDATED 



Gl DOES 
•TRANSMISSION^NO 
, COUNTER = 
<[HRES 



G2' 

,HAS UPDATED. h 
<T COUNTER HIT>- 




MOVE LINE 
NUMBER FROM 
UCB TO LERFLG1 
FOR OPCTL 




SET REGISTER 
SO TWO BIT 
TRANSMISSION 
COUNTER IS 
UPDATED 



LEREXIT 
r E4 — 



CONVERT 
CUMULATIVE 
COUNTERS TO 
PRINTABLE 



ADD ONE TO 

TRANSMISSION 

COUNTER 



NAME OF NEXT 
MODULE IS 
IGE0104F 



WRITE TO 
OPERATOR 
THRESHOLD 
MESSAGE 



LERCLEAR 
-F5 



CLEAR 

THRESHOLD 

COUNTERS 



? 4 CODE SET V 
.FOR DIAGNOSTIC; Ytb 
sWRITE/READ, 
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Chart AR. Operator Control LER Addition Routine 



IGE0304F 



C 



3 



INITIALIZE 
REGISTERS 




ADD ONE TO 
TWO BIT 
TRANSMISSION 
COUNTER 



OPELIM 
r D4 



CLEAR TWO 
BIT COUNTERS 



-El— 
ADD ONE TO 
INDICATED 
TWO BIT ERROR 
COUNTER 



OPLOOP 

-E4 



UPDATE 
THRESHOLD 
COUNTERS BY 
OLD TWO BIT 



CLEAR UPDATE- 
TYPE 



OPEXIT 
r-Gl— 



F4- 



NAME OF NEXT 
MODULE IS 
IGE0204F 



NAME OF NEXT 
MODULE IS 
IGE0104F 





C! 



NAME OF NEXT 
MODULE IS 
POST IGE05045 



OPLINK 
rG4 — 



GET LINK 
ROUTINE ADDRESS 
FROM CVT 



( u 



NK TO NEXT 
MODULE 



) 



RETURN SVC 3 



) 
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Chart AS, OPEN and Checkpoint /Res tart Routine 



IGE0404F 
„A1 — 



C 



J 




INITIALIZE 
REGISTERS 



UPDATE RETRY 
COUNTER 



■B5 — 
MOVE OPEN 
INDICATOR 
FROM LCBCPA + 
32 TO LCBCPA + 
1 



ZERO LCBCPA - 
32 




NAME OF NEXT 
MODULE IS NOT 
OPERATIONAL 
SIO IGE0504F 



©i 



INDICATE 
POST WITH 
MESSAGE 



-G1- 
SUB 




(=T. 



INITIALIZE 
IOBSTART WITH 
ADDRESS OF 
LCBCPA 



GET LINK 
ROUTINE 
ADDRESS FROM 
CVT 



G 



CLEAR SPECIAL 

ENTRY 

INDICATOR 



TURN OFF 
SIO CODE 



LINK TO NEXT 
MODULE 



) 



J2- 



-H3~ 
SUB 



0. 



ERROR 
EXECUTE 
CHANNEL 
PROGRAM 
SVC 15 








ERR 
r H5- 




RETURN SVC 3 



) 



NAME OF NEXT 
MODULE IS POST 
IGE0504E 



PREPARE I/O 

ERROR 

MESSAGE 



INDICATE TO 
START LINE 



WRITE TO 
OPERATOR 



RESTORE 
SAVED CCW'S 
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Chart AT. tfot Operational Start I/O Routine 



IGE0504F 
^A3 



C ENTER J 



ENTRY 
r B3- 



INITIALIZE 
REGISTERS 



C3- 

WRITETO 
OPERATOR 
XXX CONTROL 
UNIT NOT 
OPERATIONAL' 



WTOR 
nD3- 



WTOR 'REPLY 
CONT OR 
POST' 






ERROR EXECUTE 
CHANNEL 
PROGRAM 
SVC 15 



INITIALIZE 
IOBSTARTWITH 
ADDRESS OF 
LCBERCCW 



LOOP 
r Hl- 




•-G3- 
( RETURN SVC 3 



) 



■G4- 



INDICATE OPEN 
IDLE 



SAVE FIRST 
TWO CCW'S 




r-Jl — 

SETUP 
REQUIRED SADXXX 
AND/OR ENABLE 
CCW 



SET UP READ 
SKIP CCW 



■H4- 



AFTOPEN 
r G5 



SET LCBSTATE 
CLEANUP FLAG 
ON 



INDICATE 'ERROR 
CORRECTED' TO 
I OS 



SET UP 
BREAK CCW 



■J4- 



-H5-* 

SET FLAG FOR 

LINE END AND 

FREE BRB SO 

LINE IS IGNORED 

TILLSTARTLN 



ZERO SPECIAL 

ENTRY 

INDICATOR 



-K3- 

SET SPECIAL 
ENTRY 

INDICATOR TO 
GO TO IGE0404F 



INDICATE 
•PERMANENT 
ERROR' TO IOS 



© 



© 
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Chart AU. Bus Out and Overrun for Auto Poll Routine 



f ENTER J 



C 



ENTER 



INITIALIZE 
REGISTERS 



J 



AUCKCNT 



GET POLLING 
LIST ADDRESS 
FROM SECOND 
POLL CCW 



.- B5- 
ADD ONE TO SUM 
OFERP AND 
EOBLC COUNTERS 
ZERO EOBLC 
CTRA 



STORE COUNT IN 
ERP RETRY 
COUNTER 



GET POLLING 
LIST ADDRESS 
AND ENTRY SIZE 



NEW COUNT = 
RESIDUAL COUNT 
+ WIDTH 




NEW ADDRESS = 
OLD ADDRESS + 
ORIGINAL COUNT 

RESIDUAL 
COUNT -WIDTH 



AUCOM 
-HI — 



STORE NEW 
COUNT IN 
FIRST POLL CCW 



r-Jl- 



RECORD CONTROL 
UNIT FAILURE 
IS SDR TABLE 



NAME OF NEXT 
MODULE IS POST 



STORE NEW 
ADDRESS IN 
FIRST POLL CCW 



r J2- 



NEW COUNT = 
SIZE OF LIST 
= START ADDRESS 
- MATCH 
ADDRESS 



GET ADDRESS OF 
LINK ROUTINE 
FROM CVT 



•Kl- 



RESTORE POLL 
COMMAND CODE 



ERROR EXECUTE 
CHANNEL 
PROGRAM 
SVC 15 



NEW ADDRESS = 
MATCH ADDRESS 



( RETURN SVC 3 



) 



K2___ 

/link to 
vnext module 



) 



© 
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Chart AV. Overrun Routine 



IGE0704F 
^A2 — 



C 



D 



r-B2 — 

INIT. REGS. ADD 
1 TO SUM OF ERP 
ANDEOBLC 
COUNTERS; ZERO 
EOBLC COUNTER 




OVSNO 
-D3 — 



0. 




©; 



SETSNO BIT 
IN ERROR 
HALFWORD 



0. 




-G2- 



INDICATE 
POST WITH NO 
MESSAGE 



OVPOST 

-H2 



SET ORB 
RECORDING 



OVPOST2 
-J2 



GET NAME OF 
POST MODULE 
AND ADDRESS 
OF LINK 
ROUTINE 



,K2_ 



/'LINK TO "\ 

V NEXT MODULE J 




SET DISABLE 
RETURN 



-G3- 



SAVE FAILING 
CCW, SENSE 
AND STATUS 



INDICATE 
REDIAL/ENABLE 



■J3- 



SET DISABLE OP 
CODE, FLAGS, 
AND COUNT 




TEXT \ YES 

TRANSFER. 



RESTART 
AFTER DIAL 
ENABLE 



OVCKCNT 

-E4 



STORE 

UPDATE 

COUNT 



OVEXCP 

r-|H4 — 



ERROR EXCP 
SVC 15 



C 



-© 





RECORD UNIT 
FAILURE 



RETURN 



3 
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Chart BW. Locate DCB Routine 



IECKDCBL 



C 



LOCATE 
DCB ROUTINE 



) 



r-B2 — 
GET THE ADDRESS 
OF THE TERMINAL 
TABLE AND SET 
USER'S ERROR 
FLAG TO ZERO 



-C2- 

GET MAXIMUM 
SIZE OF 

TERMINAL NAME 
FROM TERMTBL 
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Chart BX. Start Line-Stop Line Routine 
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•Chart BXl. QTAM Start Line-Stop Line Routine 




LCB Xyes 

, CHAIN END 




TURN OFF 
INTREL BIT 



C 



J 



+C RETURN J 



DETERMINE 
PROPER 
SAD CODE 



STOPLN 
-B2 



LOAD UCB AD- 
DRESS AND SET 
UP FOR LOOP 



STCBLOOP 
-C2 



STORE IN 
CHANNEL 
PROGRAM 
AREA 



GET NEXT STCB 
IN THE CHAIN 



REMOVE 
RECEIVE 
SCHEDULER 



CHEKSEND 





REMOVE 

SEND 

SCHEDULER 




C 



RETURN 



J 



LINEADDR 
-G4 



GET LINE 
ADDRESS 
FROM UCB 



HIOLOOP 
,_H4 



TURN OFF 
ERP FLAGS 
AND HALT 
THE LINE 




BUMP TO 
NEXT 
CCM SLOT 



-D5- 



CHANGE TIC 
ADDRESS 
AFTER POLL 
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Chart BY. Breakoff Routine 



IECKBRKF 



f BREAKOFF J 



Bl. 



GET THE 
ADDRESS OF 
THE START OF 
DATA FOLLOWING 
THE PREFIX 




D2 AREALD . 
/ MESSAGE X YES 
^CHARACTERS/ 
IDENTICAL 



NO 



TESTLNG 
-E2 



ACCUMULATE 
TOTAL MESSAGE 
LENGTH TO 
THIS POINT 



-F2_ 

GET MAXIMUM 
MESSAGE LENGTH 
SPECIFIED BY 
USER 




G3 / HAS 

y MAXIMUMS v, 

-<T LENGTH BEEN >-" 

X£XCEEDE~ ' 





NO V 



(S 



TURN OFF 
RECEIVE BIT IN 
LCBSTATE 



RETURN TO USER 



9 



.-J3- 



J2' 

y PROGRAM ^ 
XCHECK FROM 
X NO BUFFER^ 



NO 



SET ERRORS AND 
INITIALIZE LCB 
FOR BREAKOFF 



(return to user) 



EXCP 



WRITE 

BREAKOFF 

CHARACTERS 
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Chart BZ. Release Intercepted Messages Routine 



IECKRELM 
~A2 — 



C 



J 



SAVE 
REGISTERS 14-12 



-C2_ 
ACCESS TERMINAL 
TABLE AND GET 
TERMNAME SIZE 
AND LPS QUEUE 
ADDRESS 




RESTORE 
REGISTERS 14-12 



LOAD X '2<V\ 
RETURN CODE J 
AND RETURN^ / 



GET ADDRESS OF 
QMOVE ROUTINE 
AND SET UP FOR 
ACTIVATION 



GET ADDRESS OF 
THE INTERCEPT 
FIELD USING THE 
OFFSET FROM 
LPSTART 



H3 HEADER 
ADDRESS MORE . 
THAN 1ST V 
ELEMENT IN^ 
N QUEUE' 



Tye: 



QPOST 



CAUSE HEADER 
ADDRESS TO 
BE MOVED TO 
QCB 



RETURN 
ri J4- 



(LOADXWA 
RETURN CODE ) 
AND RETURN^ 



QPOST 



CAUSE RESET 
OF INTERCEPT 
BIT AND SET 
SEND BIT 



(return to user\« 



-K4- 

RESTORE 
REGISTERS 14-12 
AND LOAD X '00' 
RETURN CODE 
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Chart CO. Pause Routine 



IECKPAUS 
,A2 



( ENTER J 



-B2- 



GET ADDRESS OF 
FIRST CHARACTER 
TO TRANSMIT 




NEXTCHAR 
C3 



GET PREVIOUS 
COUNT OF 
PAUSES 



SEARCH FOR 
INDICATED 
SPECIAL 
CHARACTER IN 
BUFFER 



special\ v 

HARACTER >- 



■as, 

<Q CHARACTER 
XfOUND IN/ 
^BUFFER 

NO 



c 




-f RETURN J 



j 



QWAIT 



REQUEST AN 
INSERT BLOCK 



AGAIN 
r G3- 



PUT INSERT 
BLOCK INTO 
BRB-RING 




■H4- 



BUMP POINTER 
TO NEXT 
BLOCK 



COMPLETE THE 
INSERT BLOCK 
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Chart ci. Retrieve - DASD Routine 




r-Dl 



GET ADDRESS 
OF QTAM 
IMPLEMENTATION 
ROUTINE 



-El- 

BUILD QCB/BRB 
IN THE USER 
SUPPLIED 
WORK AREA 



QPOST 



POST QCB/BRB 
TO DISK 
QUEUE 



B3- 



QWAIT 



WAIT FOR 
MESSAGE TO BE 
RETRIEVED 
FROM DISK 



n-C3 



QWAIT 



WAIT FOR 
QCB/BRB TO BE 
REMOVED FROM 
READY QUEUE 



■D3- 



MOVE THE 
MESSAGE TO 
THE WORK AREA 



QPOST 



RETURN BUFFER 
TO AVAILABLE 
BUFFER QUEUE 



RESTORE 

REGISTERS 

14-12 



r 02 — \ 

f RETURN J 
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Chart C2. Retrieve by Sequence Number Routine 



IECKRETS 
^A1 — 



C 



D 




A2 GIVEN 
.SEQUENCE NO 
\TOSEQ. NQ 
IN HEADER' 



SAVE REGISTERS 




SET 

INDICATION FOR 
SEQUENCE IN 



SETSEQ 
r-El — 



B3 

f RETURN TO 
A CALLING 




LOAD 

ERROR CODE 
X '40' 



OBTAIN ADDRESS 

OF TERMINAL 

TABLE AND 

MAXIMUM 

LENGTH 

OF TERMNAME 




SET DISK 
ADDRESS IN 
REG 1 



_C5_ 

IECKRETD C1A1 



GET SEGMENT 
IN WORK 
AREA 



-D5- 
OBTAIN FROM 
HEADER THE NEXT 
SEGMENT AND 
PREVIOUS HEADER 
ADDRESS 





G3'DEST\ 

/QCBADDR OF 

HEADER = QCB 

\ADDR IN 

TERMTBL' 




SEQCK 



C2A2 



TEST 

SEQUENCE 

NUMBER 



G5 

HEADER X YES 
MESSAGE 



,_H5_ 



IECKRETD C1A1 



GET NEXT 
RECORD 



GET DISK 
ADDRESS FROM 
QBACK OF 
DESTINATION 
QCB 



-K1- 



HEADERIN 
,_J5 



C2A2 



TEST 

SEQUENCE 

NUMBER 



OBTAIN ADDRESS 
OF SEQUENCE 
FIELD 



A 

k5 0rginal. 

YES/ RECORD A 
HEADER 
V SEG. 
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Chart C3. Checkpoint Request Routine 



IECKCKRO 
-B3 



C 



j 



-C3- 

GET ADDRESS OF 
CURRENT TCB 
AND STORE IN 
PASSED ECB 



QPOST 



POST C.P. ECB 
TOC.P.QUEUE 



QWAIT 



WAIT FOR THE 
C.P. TO 
COMPLETE 



C 




-D4- 



SETX '01' ERF 
CODE IN 
REGISTER 15 



r< 




SETX '02' ERROR 
RETURN 




SET X '04' ERROR 
RETURN 



RETURN 



3 



j> 
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Chart C4. Open Message Process Queue 
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Chart C5. Get Segments Routine 



IGG019NA 



C 



J 



C RETURN FROM 
V EODADEXIT 




RESTORE 
REGISTERS 14-1 



>< THIS FIRST 
ENTRY 



D2 HAS 
/ FIRST 
XBUFFER BEEN/ 
OBTAINED 

YES 



QPOST 



RETURN LAST 
BUFFER TO 
RETURN BUFFER 
QUEUE 



RESTORE 
REGISTERS 2-12 
AND GET THE 
USER'S EXIT 
ADDRESS 



r _F2. 



SET FIRST TIME 
FLAG NON 
ZERO 





SET SECOND 
TIME FLAG 
NON ZERO 



QWAIT 



WAIT FOR 
NEXT BUFFER 



( RETURN J* 



-K2- 



o 



RESTORE 

REGISTERS 14-12 
UPON RETURN 




STORE COUNT IN 
WORKAREA AND 
TAKE THE 
SYNCHRONOUS 
EXIT 
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Chart Cb. Get Messages Routine 



IGG019NB 



( ENTER J 




SAVE REGISTERS 






-Fl- 



GET ADDRESS 
OF EODAD 
ROUTINE 



TO USER 

SPECIFIED 

ROUTINE 




QPOST 



RETURN 
BUFFER 



r C2- 



INDICATE NO 

BUFFER 

PRESENT 



QWAIT 



WAIT FOR 

NEXT 

BUFFER 



QWAIT 



REMOVE 
PROCESS QCB 
FROM RDY Q 



r-C3- 



INDICATE 

BUFFER 

PRESENT 




C 4 ANY 
< BUFFER 
^REMAINING' 



NO 




RESTORE 
REGISTERS 



C 



MOVE SOURCE 
TERM NAME 
IF AVAILABLE, 
TO USER AREA 



SET NOT-1ST- 
BUFFER SWITCH 



RE-ENTER 
THISMODU 



D 



■G2- 



USE COUNT 
OF DATA 
FOR MOVE 




r D5- 



GET ADDRESS 
OF SYNEXIT 
ROUTINE 



r- E5 - 

BALR SYNEXIT 



USER SPECIFIED 
ROUTINE 



FILL IN 
WORK AREA 
PREFIX 



USE SIZE 
OF WORK 
AREA FOR 
MOVE 



SETUP TO MOVE 
REMAINDER OF 
BUFFER FROM 
PREVIOUS GET 



MOVE 
rJ3- 



RESTORE 
REGISTERS 



MOVE DATA 
TO WORK 
AREA 



<■ 



RETURN TO USER 



i> 
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Chart C7. Get Records Routine 



IGG019NC 



SYNEXIT 



C 



ENTER 



j 




GET ADDR 
OF SYNEXIT 
ROUTINE 



TO USER 

SPECIFIED 

ROUTINE 



SAVE DATA 
COUNT 
REMAINING 
IN BUFFER 



SAVE 
REGISTERS 



RESET 
-B3- 



► | « 



STORE COUNT 
IN WORK AREA 
AND RESTORE 
REGISTERS 



-^RETURN TO USER J 



GETBUFF 




r C3- 





GET ADDRESS 
OF EODAD 
ROUTINE 



BALR 



EODAD 



TO USER 

SPECIFIED 

ROUTINE 



$ 



RETURN TO USER 



9* 



GET NUMBER 
OF CHARACTERS 
TO BE MOVED 



GET ADDR 
OF FIRST 
CHARACTER 
TO MOVE 



CHECK 



QPOST 



RETURN 
BUFFER 



INDICATE 
NO BUFFER 
PRESENT 




WAIT FOR 
NEW BUFFER 



QWAIT 



MOVE MS 
PROCESS QCB 
FROM RDY Q 




r H2- 



■G3- 

MOVE SOURCE 
TERM NAME TO 
USER AREA, IF 
AVAILABLE 



YES 



RESTORE 
REGISTERS 




/"RE-ENTER THIS A 
V MODULE J 



•J3- 



GET ADDRESS OF 
1ST CHARACTER 
IN BUFFER 



F4 ' IS 
y THIS AN' 
<C EOB 

^CHARACTER' 



»' ■ « 



FILL IN 
WORK AREA 
PREFIX 



RESTORE 
REGISTERS 





YES IF 



a 



RETURN TO USER 



9 



END 
-E5- 



SETEND OF 
RECORD SWITCH 




MOVE 
CHARACTER 



INCREMENT 
WORK AREA 
AND BUFFER 
POINTERS 




RESTORE 
REGISTER 



FILL IN 
WORK AREA 
PREFIX 



CLEAR NOT- 

1ST-SEGMENT 

SWITCH 
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Chart C8. Put Message Segment Routine 



rc8~lENTRY FROM 
\A3JbUFFER-BRB ROUTINE 
Y > N ICG019NG 



f ENTER J 



-A3- 



INITIALIZE 
REGISTERS 



FILL IN 
BUFFER PREFIX 



SAVE 
REGISTERS 14-12 



FOUND 
-B2 — 



INITIALIZE 
REGISTERS 




-El- 



NO 



GET ADDR. OF 
1ST TERM TABLE 
ENTRY 



< 



F1 - IS 

THIS THE\ YES 
PUT 
DESTINATION 



GET 2 BYTES 
OF SEGMENT 
LENGTH AND 
SAVE THEM 



ADD TEXT 
PREFIX SIZE 
TO SEGMENT 
SIZE 




SET NOT-1ST- 
TIME SWITCH 




ADD HDR 
PREFIX SIZE 
TO SEGMENT 
SIZE 



SET ERROR 
CODE 



BYPASS ALL 

IDLE 

CHARACTERS 



TEXT 
r B5 - 



MOVE DATA 
INTO BUFFER 



POST 

-C5- 



FILL IN 
BUFFER 
PREFIX 



c 



RETURN TO 
IGG019NG 



J 






SET ERROR 
CODE 





INVALID 
r E5 



SET ERROR 
CODE 



NO y ANY 

PUT ERRORS 



GET NEXT 
ENTRY IN 
TERM TABLE 



RESTORE 
REGISTERS 



REQUEST 
NEW BUFFER 



SET ERROR 
CODE 



^RETURN TO USER J 



WAIT FOR 
NEW BUFFER 



RESTORE 
REGISTERS 



.K3_ 



POSTBUFF 
-,J4 



QPOST 



POST BUFFER TO 

DESTINATION 

QUEUE 



(RETURN TO USER 



o 



QWAIT 



WAIT FOR BRB 
TO BE REMOVED 
FROM RDY Q 



RESTORE 
REGISTERS 



(RETURN TO USER ) 
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Chart C9. Put Record Routine 



IGG019NF 

-AT- 



C 



Bl- 



J 



-A2- 

GETSIZE OF 
WORKAREA AND 
SAVE WORKAREA 
ADDRESS 



SAVE REGISTERS 
14-12, SAVE THE 
WORKAREA ADDR 
AND SET NEW PUT 
REQUEST SWITCHC 



-Cl- 
INITIALIZE 
REGISTERS WITH 
THE DEB ADDRESS 
AND ADDRESS OF 
THE LPS QUEUE 



®&, 




RESTART 

El — 



REQUEST A 
NEW BUFFER 




-A3- 
INITIALIZE 
REGISTERS WITH 
TERMTBL ADDRESS 
AND ADDRESS OF 
THE LPS QUEUE 



i entry from 
Jbuffer-brb 

routine in 

igg019ng cont 




SKIP1 

C3^' S AX 
/^BUFFER 

LEFT FROM 

PREVIOUS, 

sPUJ/ 

NO 




WAIT FOR A 
NEW BUFFER 



POSTBUFF 

nGl- 



QWAIT 



WAIT FOR BRB 
TO BE RE- 
MOVED FROM 
READY QUEUE 




QPOST 



POST UNUSED 
BUFFER TO 
AVAILABLE 
BUFR QUEUE 



EXIT 



-® 



RESTORE 
REGISTERS 14-12 



r G2 — > 

( RETURN ) 



H2 

GET ADDRESS OF 
FIRST TERM ENTRY, 
SIZE OF ENTRY, 
ADDR OF PUT 
TERM NAME 



-Jl- 

GET ADDRESS OF 

DESTINATION 

QUEUE 



Ri- 



ca POST 



POST 

BUFFER TO 
DESTINATION 
QUEUE 




USE BUFFER 
LENGTH 
FOR MOVE 



A4 

SAVE EXTRA 
BUFFER ADDRESS 
AND LOAD 
PREVIOUS BUFFER 
ADDRESS 



MUVt 



-A5 

MOVE THE DATA 
FROM THE 
WORKAREA TO 
THE BUFFER 



r B5- 
GET ADDRESS OF 
NEXT CHARACTER 
IN BUFFER AND 
STORE DATA 
COUNT IN PREFIX 



-D3- 

PUT LCB ADDRESS 

IN THE PREFIX, 

CLEAR SOURCE 

KEY, INSERT TEXT 

INDICATOR 




GET NEXT 
BUFFER ADDRESS 
IF THERE IS AN 
EXTRA BUFFER 




-E4- 
CLEAR NEW PUT 
REQUEST SWITCH 
AND SAVE NEW 
WORKAREA 
POINTER 



-F4- 

SAVE REGISTERS 
FOR RETURN TO 
IGG019NG 



ZERO SEQUENCE 
NUMBERS AND 
SCAN POINTER IN 
HEADER PREFIX 



-G4- 



COUNT IDLE 
CHARACTERS 



INCREMENT 
POINTER 



-E5- 



INDICATE END 
OF MESSAGE IN 
THE PREFIX 



rF5- 



GET ADDRESS OF 
NEXT CHARACTER 
IN WORKAREA 



-G5- 

SET SWITCH 
INDICATING NO 
BUFFER 
REMAINING 




[-H5 

MOVE PRIORITY 
FROM WORKAREA 
INTO TEMPORARY 
PRIORITY BYTE 



-J5- 

LOAD STATUS 
BIT AND 

DESTINATION KEY 
IN HEADER PREFIX 
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Chart CA. Message Type Routine 



IECKTYPE 



f ENTER J 



-B3- 



SAVE SCAN 
POINTER 



■C3- 

GETSCAN 

SUBROUTINE 

ADDRESS 



IECKSCAN CFA1 



GET NEXT HEADER 

NONBLANK 

CHARACTER 




t4 ^^ 

RETURN TO \ 
NEXT MACRO I 
STATEMENT J 



RESTORE 
SCAN POINTER 



•G3 
/RETL 



/RETURN TO NEXT 
( MSGTYPE OR 
\ EQA ROUTINE 
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Chart CB. Change Terminal Table Routine 



IECKCHGT 
.-Al 



C 



CHNGT 



} 



r-B1~ 

SAVE REGISTERS 
14-12 AND CLEAR 
THE USER'S ERROR 
INDICATOR 



-CI — 

LOAD WORKING 
PARAMETERS AND 
ACCESS FIRST 
ENTRY 



LOOKUP 

, ^is N ^ 

DJ'THIS TH^ 
ENTRY TO BE > 
sCHANGED. 



NO 



D2 IS^ 
•NEW ENTRY\ 
-►<SIZE EQUAL TO >- 





SETX '10' AS 
ERROR INDI- 
CATOR FOR 
INVALID 
LENGTH 



INVALID 
r-F2 



Fl 
SIZE OF ENTRY YF <. * 
<^ INDICATED AS> T 

ZERO IN TABLE 



NO 



-G1- 



SET X '20' AS 
ERROR INDI- 
CATOR FOR 
INVALID TABLE 
ENTRY 



ACCESS THE 
NEXT ENTRY IN 
TERMTBL 



LNGTHOK 
r D3 



INITIALIZE AND 
GET ADDRESS OF 
QMOVE QCB FOR 
CHANGING 
ENTRY 



-E3- 
GET THE ADDRESS 
OF THE DESTIN- 
ATION QUEUE 
QCB FROM THE 
TERMTBL 




r F4- 



CALCULATE THE 
LCB ADDRESS FOR 
THE TERMINAL 



ADJUST THE SIZE 
SO THAT THE 
LENGTH BYTE IS 
NOT DISTURBED 
IN MOVE 




QPOST 



CAUSE MOVE 
TO BE EXE- 
CUTED FOR 
ENTIRE ENTRY 



H4- 



QPOST 



CAUSE QCB 
ADDRESS TO BE 
MOVED TO 
TERMTBL 



RET 
|-J3 — 

LOAD ERROR FLAG 
IN REGISTER 15 
AND RESTORE 
REGISTERS 0-12 







RETURN TO USER 



9 



-J4- 
BYPASS 
SEQUENCE 
NUMBERS IN 
TERMTBL AND 
WORKAREA 



QPOST 



CAUSE 
REMAINDER 
OF ENTRY TO 
BE CHANGED 
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Chart cc. Copy Polling List Routine 



IECKCPPL 
^A2 



C 



3 



SAVE 
REGISTERS 14-12 



-C2— 

LOAD PASSED DCB 
ADDRESS AND DCB 
NOT OPENED 
ERROR FLAG FOR 
USER 




■D3 

CLEAR DCB NOT 
OPENED ERROR 
FLAG AND GET 
THE DEB ADDRESS 



■E4 

SET INVALID 
RELATIVE LINE 
NUMBER ERROR 
FLAG FOR USER 



GET THE ADDRESS 
OF THE POLLING 
LIST FROM THE 
DCB 



-G3- 

GET THE LENGTH 

FROM THE POLL 

LIST AND COPY 

POLLING LIST 

INTOWORKAREA 



RET 
r H3- 



LOAD USER'S 
ERROR FLAG IN 
REGISTER 15 FOR 
RETURN 



RESTORE 
REGISTERS 0-12 



( RETURN TO USER 



•) 
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Chart CD. Change Polling List Routine 



IECKCHPL 
,-Al 



C 



ENTER 



J 



SAVE 
REGISTERS 14-12 



_C1_ 

LOAD PASSED DCB 

ADDRESS AND 

DCB NOT OPENED 

ERROR FLAG FOR 

USER 




-D2 

CLEAR DCB NOT 
OPENED ERROR 
FLAG AND GET 
DEB ADDRESS 




NORLNERR 
r— E3 



GET THE ADDRESS 
OF THE POLLING 
LIST FROM THE 
DCB 



SET INVALID 
RELATIVE LINE 
NUMBER ERROR 
FLAG FOR USER 




„G4 

GET LENGTH 
AND DECREMENT 
TO START MOVE 
IN 2ND POSITION 



LOAD INVALID 
LENGTH 
ERROR FLAG 



RET 



• H4- 



GET THE ADDRESS 
OF THE QMOVER 
ROUTINE IN 
IGG019NG 



LOAD USER'S 
ERROR FLAG IN 
REGISTER 15 FOR 
RETURN 



K3- 



QPOST 



POST QMOVER 
TO ITSELF TO 
EXECUTE MOVE 



/RESTORE REGSoX 
( 12 AND RETURN J 
\[ USER y 
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Chart CE. Copy Queue Control Block Routine 



IECKCPYQ 
^A2 



C 



j 



SAVE 
REGISTERS 14-12 



-C2- 

CLEAR ERROR 
INDICATOR AND 
LOAD PARAMETER 
REGISTERS 



ERROR 
F3- 




SETX '20' IN 
ERROR INDICATOR 
FOR INVALID 
TERMTBL ENTRY 



LOAD USER'S 
ERROR FLAG AND 
RESTORE 
REGISTERS 0-12 



(return TO USER J 
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Chart CF. Scan Routine 



IECKSCAN 
,A1 



C 



j 



INSERT 

BLANKS INTO 
WORKWORD 



■Cl- 
LOAD 

REGISTER WITH 
WORKWORD 
ADDRESS FOR 
EXTERNAL USE 
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Chart CG. Copy Terminal Table Routine 



IECKCPYT 
42 



C 



j 



SAVE 
REGISTERS 14-12 



-C2- 

CLEAR ERROR 
INDICATOR AND 
LOAD 
PARAMETERS 




.F3 

SET INVALID 
TERMINAL TABLE 
ENTRY ERROR 
INDICATOR 
FOR USER 



MOVE TERMINAL 
ENTRY TO 
WORKAREA 
STARTING IN 
FIRST BYTE 



RET 
I-H2- 



LOAD USER'S 
ERROR FLAG 
AND RESTORE 
REGISTERS 0-12 



(• 



RETURN TO USER 



■> 
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Chart Cfl. Date Stamp Routine 



IECKDATE 
-A3 



C 



J 



IECKEXPD CUA1 



EXPAND HEADER 
FOR DATE 
INSERTION 



IEAORT00 



REQUEST CURRENT 
DATE 



UNPACK DATE 
INFO 



MOVE 
FORMATTED 
DATE INTO 
HEADER 



f RETURN J 
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Chart CI. Source Routine 



IECKSRCE 
*.A1 



C 



SOURCE 



j 



GET SCAN 

SUBROUTINE 

ADDRESS 



IECKSCAN CFA1 



GET SOURCE 
CODE FROM 
HEADER 



GET TERMINAL 
SIZE FROM 
TERMTBL 





PUT ENTRY 
INDEX FOR 
SOURCE TERM 
INTO HEADER 
PREFIX 



■ H2_ 



STORE ENTRY 
INDEX FOR 
SOURCE TERM 
INTO HEADER 
PREFIX 

X 



r 32 — ^ 

( RETURN J 
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Chart CJ. Skip to Character Set - Skip on Count Routines 



IECKSKPS 
^A2 



C 



ENTER 



j 



SAVE BASE 
REGISTER 



STORE SCAN 
POINTER VALUE 
IN SAVE REG 



r-D2- 

IECKSCAN CFA 



GET HEADER 
CHARACTERS 



E2- 



LOAD FIELD 
SIZE PARAMETER 
FROM LINKAGE 



r Fl 

INCREMENT 
SCAN POINTER 
VALUE BY ONE 





ERROR 
-HI- 



CANCEL 
MULTIPLE 
ROUTING IN 
LCB 



Jl- 

RESETSCAN 
POINTER TO 
END OF 
BUFFER 



RETURN 

-J2 — . 



INCREMENT 
COUNT IF 
ODD 



C 



IECKSKPC 
,B4 



C 



ENTER 



j 



LOAD SKIP 
COUNT PA RAM 
FROM LINKAGE 



SKPCHAR 
-D4 



INCREMENT SCAN 
POINTER TO 
NEXT 
CHARACTER 




RETURN 



j 
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Chart CK. Time Stamp Routine 



IECKTIME 
-A3 



C ENTER J 



_B3_ 

IECKEXPD CUA1 



EXPAND HEADER 
FOR TIME 
INSERTION 



GET TIME 
OF DAY 



■D3- 



PUT TIME 
DATA INTO 
WORKWORD 



UNPACK TIME 
DATA 



-F3- 



MOVE EDITED 
TIME DATA 
INTO HEADER 



C 



D 
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Chart CL. Cancel Message Routine 



1ECKCNCL 
-A2 



C 



ENTER 




ERRACT 
-C2 — 




c 



RETURN 



RECALL HEADER 



•D2- 




ERRRET 



TURN ON CANCEL 
BIT IN HEADER 
PREFIX 




D 



-D4_ 
CANCEL 
MULTIPLE ROUTE 
BYTE AND CLEAR 
CONVERSE MODE 
BIT IN LCB 
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Chart CM. Sequence Out Routine 



IECKSEQT 
^A2 



C 



ENTER 



J 




r C2_ 

IECKEXPD CUA1 



EXPAND HEADER 



• D2- 



GET BINARY 
SEQUENCE NO. 
FROM HDR PREFIX 



r E2- 



CONVERTSEQ. 
NO. TO 
DECIMAL VALUE 



•F2- 



UNPACKSEQ. 
NO. INTO HDR 
FIELD 



G2- 



RETURN 



J> 



B3 DEST. 
CQCB A PROCESS^ 
^ QUEUE 

NO 



.C3- 



IECKEXPD CUA1 



EXPAND HEADER 



RETURN 



J 



SAVE OFFSET 
TO SEQOUT 
FIELD IN 
MSNUMOUT 
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Chart Ctf. 



Route Routine 



IECKROUT 
-A3 



C 



ENTER 



J 



r B3— 

STORE LPS 
RETURN ADDRESS 
IN LCB FOR 
MPLE ROUTE 



IECKSCAN CFA1 



GET DEST CODE 
FROM READER 



IECKLKUP COA2 



LOOK UP DEST 
CODE IN TERM 
TABLE 



C 



RETURN 



J 
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Chart CO. Lookup Routine 



IECKLKUP 
-A2 



f ENTER J 



IECKDRCT 
B2 



GET MAX SIZE 
OF TERM NAME 
FROM TERM 
TABLE 



TURN OFF EOB 
STATUS BIT 



COMPAR1 

D2/TST" 
/FRST (NXT)^ 
<T TERM TABLE 
GENTRY FOR' 
N DEST / 



YES 



DESTOK2 

-E2 



COMPUTE NEXT 
ENTRY ADDRESS 




MOVE QUEUE 
ADDR TO LCB 



F2- 



PUT TERM TABLE 
ENTRY INDEX 
INTO PREFIX 



■E4 — 

SET 

DESTINATION 
ERROR BIT IN 
LCB 



F4— 
ASSIGN 
MESSAGE TO 
ERROR 

DESTINATION 
QUEUE 



C 



D 
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Chart CP. Translate Routine 



IECKTRNS 

r 



j 



rB2— 

OBTAIN RELADDR 
FROM LCB OF 
FIRST 

CHARACTER TO 
TRANSLATE 





r E2 — 

RECOMPUTE 
RELADDR OF 
FIRST CHAR TO 
TRANS 



-F2- 



COMPUTE FULL 
ADDR OF FIRST 
CHAR TO TRANS 



G2- 

COMPUTE CHAR 
COUNT TO 
TRANSLATE 




G 



TRANSLATE 
CHARACTERS 



D 
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Chart C^. Error Message Routine 



IECKERMG 



C 



J 




IECKRC DDA2 



RECALL 
HEADER 




LEAVE SCAN 
POINTER 
POINTING TO 
END OF HEADER 



SET SCAN 
POINTER TO END 
OF HEADER 
PREFIX 



-Fl- 
SKIP POINTER 
PAST IDLE 
CHARACTERS FOR 
DATE AND TIME 
STAMP 



ADDHDR 
-Gl — 



GET START OF 
ERROR TEXT IN 
BUFFER USING 
SCAN POINTER 




-J2 

MOVE ERROR 
TEXT INTO BUFFER 
AND TRUNCATE 
EXCESS 



COMPUTE 
MESSAGE SIZE 
AND STORE 
IN PREFIX 



pE3— 

INDICATE SINGLE 
SEGMENT 
MESSAGE IN 
PREFIX 



-F3- 

GET THE ADDRESS 
OF THE LOOKUP 
ROUTINE 
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Chart CR. Polling Limit Routine 



IECKPLMT 
-A2 



f ENTER J 



-B2- 



GET CURRENT 
POLL POINTER 
FROM LCB 





-/ RETURN J 



GET CURRENT 
POLL COUNT 
FROM LCB 



rF2- 



INCREMENT 
POLL COUNT 



RETURN POLL 
COUNT TO 
LCB 





NO 



-H3- 



INCREMENT 
POINTER TO 
NEXT TERMINAL 



( RETURN J 



GET POINTER 
TO POLLING 
LIST 



■J3- 

RETURN 
POINTER TO 
LCB 



IF END OF 
LIST, SET 
POINTER TO 
BEGINNING 



f RETURN J 
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Chart CS. Reroute Routine 



IECKRRTE 
-A2 



C ENTER J 





A RETURN ) 



MAKE HEADER 

ADDRESS 

AVAILABLE 



RECALL 
HEADER 



IECKLKUP COA2 



LOOK UP 
DEST CODE IN 
TERM TBL 



-f RETURN J 
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Chart CT. Intercept Routine 



C INTERCEPT J 




ERRACT2 

B2 

IECKRC 



c 



J 



DDA2 



BRANCH AND 
LINK TO RECALL 
THE HEADER 



-C2_ 

LOAD LCBDESTQ 
WITH ORIGINAL 
DESTINATION 
QUEUE ADDRESS 



INCREMENT 
QSIZE FIELD 
IN QCB 



-E2- 

TURN ON THE 
PRIORITY BIT AND 
TURN OFF THE 
SERVICED BIT 
IN PREFIX 




PUT HEADER 
ADDRESS INTO 
INTERCEPT 
FIELD AND SET 
INTERCEPT BIT 
IN TERMTBL 




GET OFFSET TO 
NTERCEPT FIELD 
IN TERMTBL AND 
SAVE FOR 
RELEASEM RTN 



C 



j 
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Chart CU. Expand Routine 




SHIFT POINTER 
LEFT ONE 
CHARACTER 
POSITION 



COMPUTE 
ADDRESS OF 
FIRST 

CHARACTER TO 
SHIFT 




.C3- 



SHIFT 

CHARACTERS TO 
EXPAND HEADER 



COMPUTE 
ADDRESS OF 
START OF 
FIELD 



• E3- 

INSERT BLANK 
AS LEFT 
DELIMITER OF 
FIELD 



.F3- 
GETSCAN 
POINTER FOR 
NEXT 

DESTINATION 
CODE 
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Chart CV. Sequence in Routine 



IECKSEQN 
• Al 



f ENTER J 



SAVE 

BASE REGISTER 



IECKSCAN CFA1 



GET SEQUENCE 
NUMBER FROM 
HEADER 



■Dl- 



RESTORE 
BASE REGISTER 




TOOLOW 
r Fl- 



■E2 

CONVERT 
CHARACTER IN 
SEQUENCE 
NUMBER TO 
BINARY 



SET SEQUENCE 
LOW ERROR BIT 
IN LCB 



f RETURN J 




INCREMENT 
TO NEXT 
CHARACTER 



MOVE BINARY 
SEQUENCE 
NUMBER INTO 
HEADER PREFIX 



GOOD 




NONSEQ 



H3 

STORE 
EXPECTED 
SEQUENCE 
NUMBER IN LCB 



IS 



YES^ J2 SEQUENCES. NO 

NUMBER 

LOW> 



■H4 

INCREMENT 
EXPECTED 
SEQUENCE 
NUMBER FOR 
NEXT MESSAGE 



•-H5- 



) 



•J3— 

SET SEQUENCE 
HIGH ERROR 
BIT IN LCB 
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Chart CW. Mode, Initiate, and Priority Routines 



IECKMODE 



C 



J 



SAVE 

SCAN POINTER 



IECKNATE 



C 



IECKPRTY 
B5- 



1ECKSCAN CFA1 



GET NEXT HEADER 

NONBLANK 

CHARACTERS 



D C 



SET INITIATE 
BIT IN LCB 



Dl MODE 
' CHARACTER 
FOUND 



(LINK TO 
SPECIFIED MODE, 
SUBROUTINE 



C 



J 



IECKSCAN CFA1 



GET NEXT HEADER 

NONBLANK 

CHARACTER 



3 



MOVE PRIORITY 
BYTE INTO LCB 



RESTORE 
SCAN POINTER 



C 



j 



f RETURN J 
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Chart CX. Mode Conversational Routine 



FROM CLEANUP ROUTINE 
IN IGG019NG 



C 



ENTER 



Bl- 



D 



A3CONVRSEV 
S MODE AND > N0 . 
X OR I G MESSAGE 
PROCESSED 

YES 



SET LCB 
CONVERSA- 
TIONAL MODE 
BIT 




NO 



IGG019NG DGA3 



GOTO 

ENDINSRT 

ROUTINE 





FROM STARTUP 
ROUTINE IN 
IGG019NG 



CVRET 

A5 DOES N 
NO/ PROCESS 

X3UEUE CONTAIN* 
REPLY/ 



YES 



QPOST 



POSTORIGNAL 
BUFFER TO 
EMPTY BUFFER 
QUEUE 



Dl ^^ 

RETURN X 

TO MACRO ) 
EXPANSION^ 



-C5- 



INITIALIZE LCB 
WITH DISK 
ADDRESS OF 
REPLY 



SAVE RETURN 
REGISTERS 14-3 




-G2- 



FIND START 
OF POLLING 
LIST 




INITIALIZE LCB 
FOR ACTIVATE 
LINE ROUTINE 



QPOST 



POST TO 

ACTIVE 

BUFFER REQUEST 

QUEUE 
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Chart CY. End of Block Routine 



IECKEOBK 



C ENTER J 



Bl MESSAGE^ 

< CANCELLED V YES 
OR ERROR/ 
V MESSAGE^ 



-T RETURN J 




-C RETURN J 




-C RETURN J 



GET UCB 
ADDRESS 



SETEOB 
BIT IN 
PREFIX 



PRTEXT 
-F2— 




Gl IS 

» TEXT \ YES 
SEGMENT 



•Hl- 



RESTORE 
SCAN POINTER 
IN PREFIX 



GET 

REMAINDER OF 
BUFFER TO 
PROCESS 



-F3 

SETUP 

READ CONTINUE 

IN LCB 




NO 



r m v 

( RETURN Y 




-J3- 



NO 



SET UP WRITE 
CONTINUE 
IN LCB 



,-G4 

SAVE BUFFER 
SIZE AND FIND 
ADDRESS OF LAST 
CHARACTER IN 
BUFFER 



RESET LCB 
TO REUSE 
BUFFER 



pDPlGO TO ACTIVATE IN IGG019NG 



vy 
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Chart CZ. End of Block and Line Correction Routine 



c 



EOBLC 



J 



>r'MESSAGE\ YES 
<CANCELLED OR>- 



ERROR MESSAGE 
sSENT/' 




K RETURN J 



r 02 ^ 

■( RETURN J 



TSTZERO 




+( RETURN J 



■Gl- 

RESTORE SCAN 
POINTER IN 
PREFIX 



-F2- 



GET REMAINDER 
OF BUFFER TO 
PROCESS 



( RETURN J* 




GET BUFFER SIZE 



QTAM Charts 193 



Chart DO. Disk End Appendage Routine 




19U 



Chart Dl. Disk End Appendage Routine (Continued) 



SEGRDY 
rAI — 



PUT DISK ADDRESS 
INTO BRBAND 
INDICATE ADDR 
ASSIGNED 




FROM DISK I/O 
ROUTINE 



NOSRVC 




GET AVAILABLE 
BUFFER ADDRESS 



■B2 — 

INDICATE IN BRB 
THAT BUFFER IS 
ELIGIBLE FOR 
DISK QUEUE 



© 



RESET BRB STATUS 
CODE AND GET 
DISK I/O QUEUE 
QCB ADDRESS 



RESCHEDD 
r Dl- 




INDICATE IN 
PREFIX THAT 
MESSAGE SENT 
AND SET DISK 
CCW TO WRITE 



LINE DISK I/O 
QCB INTO BRB 
AND SETX'F4' 
PRIORITY IN BRB 



-El— 
LINK ITEM AT 
READY QUEUE 
HEAD INTO DISK 
I/O QCB 



-Fl— 
PUT BUFFER OR 
BRB ON READY 
QUEUE - INSERT 
RETURN BUFFER OR 
DISK I/O QCB 



SAVE MESSAGE 
SOURCE IN 
PREFIX 



TO INTERIM LPS 
ROUTINE 



G2— 

GET THE 

ADDRESS OF THE 
RETURN BUFFER 
QUEUE 



INDICATE 
DUMMY BRB IN 
DEB FOR MS 
PROCESS QUEUE 



RESET START 
POINTER FOR 
CHAIN 




THIS CODE INSERTS 
THE DISK ROUTINE 
INTO PROPER 
POSITION IN DISK 
I/O QUEUE 



PUT SEQUENCE 
NUMBER IN 
PREFIX, ADD ONE 
AND RESTORE 
IN TERMTABLE 




SET PRIORITY 
BIT ON IN 
MESSAGE 
PREFIX 




SETSIO 
rJ3 — 




ADJUST SAVED 

RETURN 

REGISTER 



© 



K3- 



• NEWv 
J4 ELEMENT^. <. 

LESS THAN j>A 
CURRENT^ I 

V ADDR. /^\ 



NO 



REINITIALIZE 
IOB FOR THE 
DISK 



( C4 ) 
O \-S 



ELEMENT IN. 

<f CHAIN LESS NJ 

THAN CURRENT 

\ADDR^ 
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Chart D2. Disk I/O Routine 



DISKENQ 
.-Al 



ACTREQ 
-A3- 



f ENTER ) 



SET UP WRITE 
CODE FOR CCW 
AND GET SEG- 
MENT RELATIVE 
RECORD NUMBER 



r-Bl- 
SET UP BASE FOR 
THIS ROUTINE 
ANDSETQKEY IN 
DISK I/O QCB TO 
NOT WAITING 




GET POINTER 
TO FIRST ITEM 
IN DISK I/O 
QCB'S ELEMENT 
CHAIN 



TO DISK END 
APPENDAGE 





REMOVE FROM 
QCB ELEMENT 
CHAIN AND GET 
BUFFER FROM 
AVAILABLE BUFFER 
QUEUE 



REMOVE CHECK 
POINT ELE AND 
SET HIGH 
PRIORITY IN 
CHECK POINT ELE 



SETQKEY IN 
DISK I/O QCB 
TO T TO 
INDICATE DISK 
IDLE 




INSERT BUFFER 
INTO DISK I/O 
QCB ELEMENT 
CHAIN AND SAVE 
BRB ADDR IN ECB 



-K3- 

SET HI PRIORITY 
IN NEW BUFFER 
AND SET UP READ 
CODE FOR CCW 



WRITE 
r A4- 



STORE COMMAND 
CODE AND BUFFER 
ADDRESS IN DISK 
CCW 




-B4 — 
CONVERT 
RELATIVE RECORD 
NUMBER TO TTR 
AND GET 
ADDRESS OF 
BPAM ROUTINE 



©■ 



BPAM 



LINK TO BPAM 
TO CONVERT TTR 
TO ABSOLUTE 



■D4- 



RESTORE BASE FOR 
THIS ROUTINE 
ANDIECKQQ01 




SET REQUEST 
ABEND PRIORITY 



VA 
r G4 



LIDTTR ^~-\Cy 



GET ADDRESS OF 
THE UCBFOR THIS 
OPERATION 



A5 ENTRY N _ 

'Through disks, 

\ END / 

APPENDAGE 

YES 



; NO \ NO 
RESTART SW 




POSTSIO 
I-C5— 



GET ADDRESS OF 
THE LPS QUEUE 
ANDSIOELE 



.E5- 



GET COMM 
REGION & 
TCB PTR 




EXECUTE 

CHANNEL 

PROGRAM 




SET THE NO 

RESTART 

SWITCH 



SET SVC 

ENTRY 

FLAG 
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Chart DA. Put Message Routine 



IGG019NE 
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Chart DB. Distribution List Routine 



IFCKDLQT 
rAl— 



FROM CLEANUP ROUTINE 
IN IGG019NG 



GET ADDRESS 
OF LCBAND 
DESTINATION 
KEY FROM 
MESSAGE PREFIX 



DLTEST 
rBl 



D 
U 
P 
L 
I 

C 
A 
T 
E 

C 
O 
D 

E 



-A4 ' 

GET OFFSET FROM 
THE LCB TO THE 
NEXT ENTRY IN 
DISTRIBUTION 
LIST 



STORE 

DESTINATION 
KEY IN LCB AS 
OFFSET TO NEXT 
ENTRY IN LIST 




GET ADDRESS 
OF TERMTBL 
ENTRY 



-El- 



PUT QCB ADDRESS 
FOR ENTRY INTO 
THE LCB 



•C2- 



LOAD THE 
DESTINATION 
KEY IN THE 
PREFIX 



rD2- 




SAVE HEADER FOR 
INSERTION INTO 
QUEUE OF THE 
NEXT 
DESTINATION 



PUT QCB ADDRESS 
FOR ENTRY INTO 
ECB OF BUFFER 



r D4- 



BUMP OFFSET TO 
THE NEXT ENTRY 
IN THE LIST 



GET ADDRESS 
OF THE READY 
QUEUE 



DLTEST 
r E4- 



STORE 

DESTINATION 
KEY IN LCB AS 
OFFSET TO NEXT 
ENTRY IN LIST 




IGG019NG DGA3 



GOTOENDINSRT 
ROUTINE 



EXIT TO PRIORITY^ 
IN IECKQQ01 J 




PUT 

DESTINATION 
IN PREFIX AND 
TURN OFF THE 2 
BIT IN LCBSTATE 



K5— 
GET THE 

ADDRESS OF THE 
BUFFER CLEANUP 
ROUTINE 
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Chart DC. End of Address Routine 




FROM MESSAGE 
TYPE ROUTINE 



GET OFFSET TO 
NEXT 

DESTINATION IN 
THE HEADER 



STORE THE 
OFFSET IN THE 
LCB MULTIPLE 
ROUTING 
INDICATOR 




IGG019NG DGA3 



FROM CLEANUP ROUTINE 
IN IGG019NG 




IGG019NG DDD4 



GO TO RECALL 
ROUTINE TO 
RETRIEVE HEADER 



I—D4- 

CLEAR LCB ERROR 
INDICATOR AND 
DISTRIBUTION 
LIST POINTER 



I — E4- 
RESETSCAN 
POINTER TO 
OFFSET OF NEXT 
DESTINATION 



CLEAR THE 
MULTIPLE 
ROUTING 
POINTER 



r G4- 
RE LOAD ADDRESS 
SAVED IN ROUTE 
ROUTINE TO 
RETURN TO EOA 
MACRO 



GET ADDRESS 
OF ROUTE 
ROUTINE FOR 
EXIT 
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Chart DD. Buffer Cleanup and Recall Routine 



IECKPR 
-Al~ 



CLEANUP ROUTINE 
ENTRY POINT 



{recall routine 
Gentry point 



GET THE 
ADDRESS OF 
DESTINATION 
QUEUE FOR 
POSTING 



IECKRC 
,-A2 — 




SAVE REGISTERS 
14-3 AND SET 
THE RECALL CODE 
IN LCBSTATE 



r-Cl 



GET THE SCAN 
POINTER 
OFFSET AND 
STORE IT IN THE 
HEADER PREFIX 




Dl 
/WAS IECKRC N 
\JHE ROUTINE/ 
ENTRY POINT 



NO y THE 
f— ^C LINE 

XSTOPPED/ 
r-j^ri RECEIVING 

yy Tyes 




I — F 1 — 

SET THE 

CLEANUP AND 
INITIATE CODES 
IN LCBSTATE 



RCPOST 

rGi — 



GET THE ADDRESS 
OF THE FIRST BRB 
IN THE BRB-RING 




RLSINS 

-E2— 



REMOVE THE 
INSERT BLOCK 
FROM THE 
BRB-RING 



F2 — 
GET THE ADDRESS 
OF THE 

ADDITIONAL-CCW 
QUEUE FOR 
POSTING 



JK IS 

/this recall 
<the result of, 
x a polling ' 
"error' 




RCLOOP 

-A3 — 



GET THE ADDRESS 
OF THE 
AVAILABLE 
BUFFER QUEUE 
FOR POSTING 



r-B3- 

SET THE BUFFER 
PRIORITY FOR 
POSTING 



C3- 



QPOST 



POST TO THE 
QUEUE 
SPECIFIED 
PREVIOUSLY 



-D3- 
ACCESS THE 
NEXT BRB, MAKE 
IT ADDRESSABLE 
AND SAVE THE 
ADDRESS IN LCB 




-F3- 



GET THE 

ADDRESS OF THE 
NEXT BRB 





C5 IS THE^ 
ENTRY POINT FROM IECKDLQT Y ES /BRB IN THE ' 
OR IECKEOAD TO RETRIEVE f-^BUFFER REQUEST'' 
HEADER FROM DISK | \QUEUE 



r-H3- 
SET NO BUFFER 
ASSIGNED SWITCH 
AND GET ADDRESS 
OF THE START OF 
THE BUFFER 



<MESSAGE INAN > YES ■ 
EXPEDITE PROCESS 

NQUEUE ' rM 



NO 



\A3J 



CHANGE THE 
BRB FIELD TO 
STOP FURTHER 
ASSIGNMENTS 



SAVE REGISTERS 
15-3 FROM THE 
CALLING 
ROUTINE 



RCACT 
I-F4- 



E5 iS THE^ 
YES/ BRB IN THE^ 
| ^BUFFER REQUEST^ 

S.QUEUE/ 



INDICATE BOTH 
RECALL AND 
CLEANUP IN 
LCBSTATE AND 
ACCESS A BRB 



r G4- 
MAKE HEADER 
DISK ADDRESS 
AVAILABLE AND 
SET DISK READ 
INDICATOR 




H4- 



GET THE ADDRESS 
OF NEXT ROUTINE 
IN QUEUE 
ESTABLISHED BY 
ENDINSRT 



GET ADDRESS OF 
DISK I/O QUEUE 
FOR POSTING 



NEXT RTN 



LINK TO LIST, 
EOA OR 

CONVENTIONAL 
MODE RTN 
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Chart DE. Buffer cleanup and Recall Routine (Continued) 



RCRET 

rA3- 



~DE~1SPECIAL RETURN 
s/^FROM STARTUP 
FOR RECALL 



GET ADDRESS OF 
LAST BRB FOR 
WHICH A BUFFER 
WAS ASSIGNED 




RESET CLEANUP 
AND RECALL 
FLAGS IN LCB 
AND BLANK LCB 
PRIORITY 



RESTORE 
REGISTERS 14-3 



no 

f EXIT TO 
( CALLING 
\ ^ ROUTINE 
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Chart DF. Free feRB Routine 



LINEFREE M- 
rA3 ' 



CLEAR SWITCH 
INDICATING BRB 
IS ACTIVE AND 
GET ADDRESS OF 
NEXT BRB 




GET THE ADDRESS 
OF THE INACTIVE 
BUFFER REQUEST 
QUEUE FOR 
POSTING 



■ D3- 
MAKE THE BRB 
ADDRESSABLE 
AND ESTABLISH 
PRIORITY FOR 
POSTING 



E3- 



QPOST 



POST BRB TO 
INACTIVE 
BUFFER REQUEST 
QUEUE 




-G3- 

GET THE LCB 

ADDRESS FOR 

FREEING LINE BY 

POSTING TO 

ITSELF 




ESTABLISH 
PRIORITY FOR 
POSTING 



QPOST 



FREE LINE OR 
POST HEADER 
TO REQUEST TO 
DISK QUEUE 
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Chart DG. End Insert Routine 



ENDINSRT 
-A3- 



GET THE ADDRESS 
OF THE START OF 
THE QUEUE OF 
ROUTINES 



-B3— 

GET THE ADDRESS 
OF THE NEXT 
ROUTINE IN THE 
QUEUE 




HAVE HIGHER^ 



'RIORITY' 



YES 



r D3- 
INSERT NEW 
ROUTINE INTO 
QUEUE AND PUT 
PRIORITY IN THE 
ADDRESS 



RESET RETURN 
ADDRESS TO THE 
BRANCH THAT 
ENTERED THIS 
ROUTINE 



■F3 — 
OVERLAY BRANCH 
ADDRESS IN 
CALLING ROUTINE 
WITH CONSTANT 
IN THAT ROUTINE 



r G3— 
OVERLAY THE 
CONSTANT WITH 
MRRE THUS 
COMPLETING THE 
QUEUE 



^-H3- 
/ RETURN TO 
( THE CALLING 
^ROUTINE 
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Chart Dri. Receive Scheduler Routine 



RCVSCH 
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Chart DI. BRB Ring Routine 



OUTONLY' 
-Dl 



YES 




© 



REMOVE SEND 
SCHED &SET 
UP TO SCHEDULE 
THE LINE TO 
SEND 



ACCESS QCB 
FOR TERMINAL 



© 



ACCESS DEB 
FOR CALL 
QUEUE 



LOOPOCQ 
r Fl 



ENDOCQ , 



GET NEXT ENTRY 
IN CALL QUEUE 




INDICATE 
AUTO CALL 



NOSRCE 



<r< 



NEW CALL 
CLOSER THAN 
PREVIOUS CALL 





TURN OFF 
DIAL CODES 
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•Chart DI1. BRB Ring Routine (Continued) 



RQCONST 
i-Al 



MAKE LCB AN 
APPARENT STCB 
AND GET ADDRESS 
OF THE INACTIVE 
BRB QCB 



Bl_ 
SET THE READ 
INITIAL 

OPERATION CODE 
IN LCB FOR 
BTAM USE 




RQSETUP 
r-E2 



START BUILDING 
CCW BY STORING 
LCB POINTER IN 
BRB AND GET BRB 
COUNT 



r F2 — 
INSERT TIC 
ADDRESS AND OP 
CODE IN BRB AND 
RESET POINTER 
TO PREVIOUS BRB 




■G3- 



r-H2. 



STORE FIRST BRB 
POINTER IN LCB 
AND ACCESS DCB 
FROM LCB 



r-J2- 



GET THE NUMBER 
OF BRB'S TO BE 
ASSIGNED 



SET BRB COUNT 
AND MAKE BRB 
UNADDRESSABLE 
TO INDICATE NO 
BUFFER ASSIGNED 




r-B4 

REMOVE LCB 
FROM READY 
QUEUE AND GET 
POINTER TO 
FIRST BRB 



_C4_ 



MOVE TIC 
ADDRESS INTO 
FIRST BRB 
COMPLETING 
BRB RING 



-D4- 
SETHIGH 
PRIORITY FOR 
BUFFER REQUEST 
AND GET ACTIVE 
BFR REQUEST QCB 



STORE SEGMENT 
ADDRESS IN LCB 
FOR SEND 
SCHEDULER 



-G4_ 
INITIALIZE LCB 
AND PREFIX WITH 
DISK ADDRESS 
AND SET DISK 
OPERATION CODE 



-H4_ 
CANCEL HIGH 
PRIORITY FOR 
BUFFER REQUEST 
AND SET WRITE 
INITIAL IN LCB 



J4_ 



GET THE ADDRESS 
OF THE DISK 
I/O QCB 
FOR POSTING 



GOREQ 
E5~ 




CLEAR LCB 
ERROR STATUS 
AND TERMINAL 
TABLE POINTER 



CLEAR LOW 
ORDER BITS IN 
LCBSTART 



■ G5- 



SET THE LCB 
POINTER TO AN 
APPARENT BRB 



-H5- 



SET THE RECALL 
ADDRESS IN 
THE LCB 
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Chart DJ. End of Poll Time Delay Routine 



DELAY 
rAl- 



RESET TERMINAL 
POLLED SWITCH 
USED BY RCV 
SCHEDULER 



f TIMEEND J 




GET CURRENT 
TIME OF DAY 



ENTRY POINT FROM THE s k $ 

SUPERVISOR WHEN ( TIMEEXIT 
AN INTERRUPT OCCURS ^ 




D 



-B5- 

GET THE ADDRESS 
OF THE TIME 
QUEUE QCB FOR 
POSTING 



-C2 

MOVE LCB LINK 
ADDRESS TO 
NEXT WAITING 
SUBTASK FIELD 
IN LCB 



CPENTRY 
I-D2 



RESUME 
-C3— 



GET POLLING 
INTERVAL FROM 
THE DCB AND 
GENERATE TWO 
DECIMAL PLACES 



GET CURRENT 
TIME OF DAY 



-F2 — 
ADD TIME OF DAY 
TO POLLING 
INTERVAL AND 
STORE RESULT 
IN LCB 



TIME LOOP 
-G2 



FIND POSITION 
IN TIME QUEUE 
FOR LCB FOR 
INTERRUPT 
PRIORITY 



TIME INS 
-H2 



PUT LCB IN 
THE TIME QUEUE 




CLEAR ALL BUT 
READY BIT IN 
TIME QCB AND 
REMOVE LCB 
FROM TIME QUEUE 




-05- 
SET CONDITION 
CODE AND 
INITIALIZE TO 
PUT TIME QUEUE 
ON READY QUEUE 



r D5- 
GET THE ADDRESS 
OF THE LINE PCI 
APPENDAGE TO 
UTILIZE COMMON 
CODE 



GET THE 

ADDRESS OF THE 
RECEIVE 

SCHEDULER STCB 
FROM THE LCB 




LINK THE LCB 
INTO THE TOP OF 
THE READY QUEUE 
TO ACTIVATE 
THE LINE 



STIMER 



SET TIMER FOR 
FIRST NON- 
EXPIRED LCB 
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Chart DK. Send Scheduler Routine 




MSGTEST 
_B4 



GET THE ADDR OF 
THE FIRST LCB ON 
THE CHAIN FOR 
THE SOURCE 
TERMINAL 



IS 
C2' IT ON \ YES 

DELAY QUEUE, ~~ 



THIS LINKS 
TO A ROUTINE 



IGG019NG DXB1 



ROUTINE WAS 
^ ENTERED WITH A BUFFER 
TO BE WRITTEN ON THE 
DISK 

,_D2 



WHICH CAUSES LINK TO SCREEN 
THE BUFFER | N DESTINATION 
TO BE WRITTEN DASD ROUTINE 
ON THE DISK. 




INDICATE ECB 
ON DELAY 
QUEUE PUT 
ECB ON 
READY QUEUE 




Fl — 
GET DEB AND 
DIAL OUT CALL 
ADDRESS AND 
DCB ADDRESS 
FROM THE QCB 




E2_ 



r C4_ 
CLEAR THE 
INSOURCE CODE 
IN LOW ORDER 
BIT OF THE 
ADDRESS 



■D3 — 

SET UP POINTER 
TO LINK SEND 
SCHEDULER 
IN DUMMY QCB 



SET UP POINTERS 
FOR TIME 
DELAY 
ROUTINE 




XUNAVAIL 
r G3 



_.. ARE > 
YES^ D4 PRIORITY 

*MSGS COMING' 
IN?/ 

NO 



® 



PUT MESSAGE 
INTO LCB FOR 
DESTINATION 



-E5 — 

REMOVE 

INSOURCE CHAIN 
CODE FROM THE 
DE CHAINED LCB 



ARE 
F4fNCOMING 
MSGS ON 
3ISK YETv 



NO 



GET ADDR OF 
SSUNAV 




PREPARE 
r G5 



CLEAR LCB 
STATUS 

INFORMATION 
IN CURRENT 
LCB 




STORE LCB ADDR 
FOR SOURCE 
INTO LCB FOR 
DESTINATION 



SET STATUS 
CODE IN 
LCBSTATE 




.K4_ 

UPDATE ADDR OF 
CURRENT SEG- 
MENT IN LCB AND 
REMOVE LCB FROM 
SOURCE CHAIN 
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Chart DK1. Send Scheduler Routine (Continued) 







DIALLOOP 

'REC 

"GREATER THAN 
" ^NUMBER OF 
~ 'LINES'' 



31- 



.A3_ 

SET BIT IN 
LCBINCAM TO 
MAKE LINE 
UNAVAILABLE 



GET THE ADDRESS 
OF THE LCB FOR 
THE LINE 



SET HIO FLAG 
CLEAR SENSE 
BYTE 



HIOLOOP 

rrB3-rr 



CLEAR ENABLE 





*T«- 





E3- 



SET LCBINCAM 
TO INDICATE 
LINE IS TRYING 
TO SEND 




NO 



INCREMENT THE 
LINE NUMBER 
BY ONE 



SSCNT 
n G3_ 



PUT 

DESTINATION 
LCB AT HEAD OF 
READY QUEUE 



HKDOES\ 
, THIS TERMINAL 
sJQCB) HAVE ./ 
X AUTOCALL^ 



NO 




© 




■ G4- 



CHANGE THE TIC 
AFTER POLL CCW 
TO A NOP 
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Chart DL. Active Buffer Request Routine 



BREQENQ 




GOTO PRIORITY 
SEARCH SUBROUTINE 
IN IECKQQ01 



GET THE ADDRESS 
OF THE FIRST 
BUFFER IN THE 
AVAILABLE 
BUFFER QUEUE 



.D3_ 
REMOVE THE 
FIRST BUFFER 
FROM THE 
AVAILABLE 
BUFFER QUEUE 




NUlGOTO PRIORITY 
F3y»SEARCH SUBROUTINE 
IN IECKQQ01 



SAVE THE BRB 
ADDRESS AND 
GET THE ADDRESS 
OF THE BUFFER 
IN FREG 



-G3- 

POINT PARAMETER 

REGISTER QREG 

TO THE 

AVAILABLE 

BUFFER QCB 



rfJN| GO TO BUFFER 
V A1 J BRB ROUTINE 



^y B 
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Chart DM. Available Buffer Routine 



BFRREQ 
r A2 — 



ACCESS FIRST 
BRB IN ACTIVE 
BUFFER REQUEST 
QUEUE 




GO TO QUEUE 
INSERT ROUTINE 
IN IECKQQ1 



C3- 



GET EXCESS 
COUNT OF 
BUFFERS OVER 
BRB'S AND 
DECREMENT BY 1 




r D4 

GET THE ADDRESS 
OF THE INACTIVE 
BUFFER REQUEST 
QUEUE 



AVSZLOOP 

-E4 



GET THE ADDRESS 
OF THE NEXT BRB 
IN THE INACTIVE 
BUFFER REQUEST 
QUEUE 




GO TO QUEUE 
INSERT ROUTINE 
IN IECKQQ01 



RESTORE 
DECREMENTED 
EXCESS COUNT 
OF BUFFERS 



BFRSCH 
-K4 — 



REMOVE BRB 
FROM TOP OF 
ACTIVE BUFFER 
REQUEST QUEUE 



GO TO BUFFER 
BRB ROUTINE 
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Chart Drt. Buffer BRB Routine 




GO TO AVAILABLE 
BUFFER ROUTINE 



GO TO INTERIM 
LPS ROUTINE 
IN 1GG019NG 



GO TO AVAILABLE 
BUFFER ROUTINE 
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Chart DO. LPS Control Routine 



ADDBUF 




IECKSU 
-A2— 



r-Bl- 



CHAIN THE FIRST 
TO THE SECOND 
WITH A TIC 



GET THE ADDRESS 
OF THE LPS 
QUEUE 



QWAIT 



WAIT FOR 
NEXT EVENT 
IN LPS QUEUE 



nB3- 



EXCP 



START DISK 
OPERATION 





NOTSIO 



NOTCLOSE 
E2 



C3 

ABEND \ YES 
REQUESTED 



-D3- 



•f ABEND J 



RESTORE THE 
USER'S SAVE 
AREA ADDRESS 



GET LCB ADDRESS 
FROM BUFFER 



<• 



RETURN TO USER 



9 




G2- 



QPOST 



GET THE ADDRESS 
OF THE USER'S 
LPS PROGRAM 



SETEOSREGTO 
END-OF- 
SEGMENT 
ADDRESS 



-J2- 

GET APPLICABLE 
TERMINAL TABLE 
ENTRY AND 
INITIALIZE THE 
SCAN POINTER 
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Chart DP. 



Activate Routine 



IECKACT 
r Al- 



GET START OF 
TEXT ADDRESS 
FOR CURRENT 
BUFFER 



STCLCCW 
-A3, 



SAVE THE ADDRESS 
OF THE LAST BR 
FOR WHICH A 
BUFFER WAS 
ASSIGNED 



r-BJ — 
CLEAR REROUTE 
AND CANCEL BITS 
AND GETBRB 
ADDRESS FOR 
CURRENT BUFFER 



^B3_ 
STORE DATE 
COUNT IN FIRST 
BRB/CCW COUNT 
FIELD 
ENCOUNTERED. 



-CI- 
PUT TEXT START 
ADDRESS AND 
'READ' CHANNEL 
COMMAND CODE 
NTO BRB/CCW 



INSBF 
-C2. 




MOVE BRB/CCW 
ADDRESS FOR 
NEW BUFFER INTO 
IOB AND GET 
IOB ADDRESS 



PUT 'WRITE' 
CHANNEL 
COMMAND CODE 
IN BRB CCWAND 
SET SERVICED 
BIT IN PREFIX 




SET IN DECB 
ADDRESSING 
AND POLLING 
ENTRIES 




ACTRCV 
A5 



B4 /WRITEv 

no initial op\ 
' code set in > 
lcbforX 

- BTAM / 



CLEAR POLLING 
AND ADDRESSING 
ERROR 
INDICATOR 
IN LCBINCAM 



ACCESS NEXT 
BLOCK FROM TIC 
ADDRESS AND 
ACCESS NEXT 
BLOCK'S BUFFER 





BTAMC2 

F3 "SHOULD^ 
4>IAL OUT LIN? 
BE 
DISCONNECTED 

YES 



P-G3- 
CAUSE BUFF TO BE 
POSTED TO AVAIL 
BUFF QUEUE AND 
CLEAR DIAL OUT 
SWITCH 




SET WRITE 
CONVERSATIONAL 
OP CODE IN LCB 
FOR BTAM 



GET THE ADDRESS 
OF BTAM'S READ/ 
WRITE ROUTINE 



r J3- 



IGG019NZ 



LINK TO BTAM 

READ/WRITE 

RTN 



K3- 



SAVE THE 
MESSAGE 
STARTING 
OFFSET IN 
THE LCB 



INDICATE HEADER 
IN MESSAGE 
PREFIX AND GET 
EXPENSION 
COUNT FROM 
USER 




STORE HEADER 
EXPANSION 
COUNT IN PREFIX 
AND INSERT IDLES 
AFTER PREFIX 



r C5- 



ZERO SEQUENCE 
NUMBER AND GET 
ADDRESS OF 
DESTINATION 
ERROR QUEUE 



r D5- 
GET THE ADDRESS 
OF THE CURRENT 
ACTIVE POLLING 
LIST ENTRY FROM 
THE LCB 



-E5- 
STORE ADDRESS 
OF POLLING OR 
ADDRESSING 
CHARACTERS IN 
BTAM'S DECB 



■® 



BTAMENT 
-F5 — 



BUILD THE DECB 
FOR ENTRY 
INTO BTAM 




214 



Chart DQ. Line SIO Appendage Routine 




SET FLAGS FOR 
ERP & INDICATE 
ERP IN CONTROL 



f RETURN TO IOS J 



SAVE REGS 10-13 



ADJUST TO 
START OF LCB 



TERMINAL \NO 
sJEST ACTIVE \ y 



SET SWITCH FOR 
RCV SCHEDULER 



GET ADDRESS OF 
STARTING CCW 




A2 
/ A 2848 

Preset channel' 

^PROGRAM' 



YES 



■B2 — 
SET DISABLE 
RETURN FOR ERP 
AND SET FOR 
ERP TO HANDLE 
BREAK 




/ 3 BUFFER 

\ASSIGNED FOf£ 

^REQUESTED' 

N READ< X 

NO 



-B3— 

SET PCI FLAG IN 
BTAM'S CCW AND 
CLEAR SWITCH 
FOR REQUEST 



TURN OFF DON'T 
DIAL FLAG 



NOP THE DISABLE 



•D2— 

GET THE QTAM 
CCW POINTER 
AND THE BTAM 
CCW POINTER 



E2- 



TURN OFF PCI 
FLAG IN QTAM'S 
INITIAL CCW 



-F2 — 
MOVE THE TIC 
COMMAND AND 
FLAGS FROM 
QTAM TO BTAM 
CCW 




r H2 



GET THE ADDRESS 
OF WRITE IDLES 
CCW AND STORE 
AS TIC ADDRESS 
IN BTAM'S CCW 





GET THE OFFSET 
TQ THE TERMINAL 
TABLE ENTRY 
DEVICE ADDRESS 



ACCESS THE 

"OLLING 

CHARACTERS 



~F5— 
INITIALIZE 
BTAM'S 2ND CCW 
TO WRITE THE 
POLLING 
CHARACTERS 



INITIALIZE WITH 
POINTER TO 
POLLING CHAR- 
ACTER FOR FIRST 
PASS THRU LOOP 



r J2— 

MOVE THE TIC 
COMMAND CODE 
INTO THE BTAM 
CCW 




NEXT 
rJ4 



STORE ACTIVE 
POLLING ENTRY 
POINTER IN LCB 
AND STORE 
OFFSET IN LCB 




CHART DQ. LINE SIO APPENDAGE RTN 
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•Chart DQ1. Line SIO Appendage Routine (Continued) 



LEAVE 



SET SWITCH 
INDICATING A 
TERMINAL WAS 
POLLED 



LOOPST 
-A2- 




ADD THRESHOLD 
COUNTERS TO 
CUMULATIVE 
COUNTERS 



NOSTAT 
-B2 



RELOAD 
REGISTERS 



APNDGNRT 
„C2 



C 



J 



INCREMENT 
THRESHOLD 
TRANSMISSION 
COUNTER 




HI X HAS 
^TRANSMISSION.NO 
\CNTR REACHED/" 

ITS THRESHOLD 




r-Jl- 



ADD CUMULATIVE 
TO THRESHOLD 
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Chart DR. Line PCI Appendage Routine 



LINE PCI 

1 



SET CONDITION 
CODE TO BE 
USED FOR 
NORMAL ENTRY 
TO THIS ROUTINE 



SET BASE FOR 
IECKQQ01 AND 
IGG019NG AND 
SAVE REGISTERS 
14-9 FOR IOS 




POTEST 



STORE ADDRESS 
OF ACTIVE 
BUFFER REQUEST 
QUEUE IN FIRST 
WORD OF BRB 



NOBUFY 
r-B3- 



SET FLAG IN 
TIC ADDRESS TO 
INDICATE BRB 
IN ACTIVE BRB 
QUEUE 



NOBUFX 
r-C3 — 



LINK NEXT BRB 
INTO PREVIOUS 
ELEMENT AND 
GET ADDRESS OF 
NEXT BLOCK 



SET PRIORITY 
AND GET ADDRESS 
OF INTERIM LPS 
QUEUEANDCLEAR 
EOM IN PREFIX 





_E3_ 
REMOVE INSERT 
BLOCK FROM BRB 
RING AND SHOW 
NEW BRB IN 
REQUEST QUEUE 





SAVE POINTER TO 
NEXT SEGMENT 
IN LCBCSEG AS 
THE CURRENT 
SEGMENT 



RESET IOB 
POINTER TO 
POINT TO LCB 
HEAD AND GET 
CSW FROM LOC 64 



,-Jl- 



-H2_ 
GET AVAILABLE 
BUFFER QUEUE 
ADDRESS AND 
RESET BRB TO 
HIGHER PRIORITY 



FIND THE CCW 
PRECEDING THE 
TIC COMMAND 



PCIENT 
-J2 — 



LINK CURRENT 
CHAIN OF BRB'S 
AND BUFFERS 
INTO READY 
QUEUE 



-D4- 



INCREMENT TO 
NEXT POLL 
CHARS 



B5 



SCAN 

STOP BYTE 

FOUND 



INDEX 

BYTES THE 

SAME 



YES 



RESET LCBCLPCI 
WITH NEXT BRB 
ADDRESS 



ADJUST POLL 
POINTER 



GOTO 
DISPATCH 



t5 

'indicator ' 

STILL ON 



YES 




GETADDR OF 
POLLING CHARS 
LAST USED TO 
START AUTOPOLL 



GET FIRST PCI 
CCW ADDRESS 
AND GET TIC 
ADDRESS TO 
NEXT BLOCK 



PCLOOP 
G4 



-H3- 



-F5- 



CLEAR HEADER 

BUFFER 

INDICATOR 



FIND START OF 
POLLING LIST 



MOVE BUFFER 
INTO NEXT BLOCK 
AND PUT 
COMBINEDCOUNT 
INTO NEXT BLOCK 



PUT QCB ADDRESS 
INTO PREFIX AND 
BUMP EXCESS 
BUFFERS COUNT 
BY 1 



, — Kl- 

GET THE ADDRESS 
OF THE CCW 
CONTAINING 
THE FIRST PCI 
NOT SERVICED 



NOBUF 
-K2— 



,H4_ 



FIND NO. OF 
POLLING CHARS 
IN EACH ENTRY 



PUT INSERT QCB 
IN INSERT BLOCK 
SET PRIORITY 
AND PUT INSERT 
BLOCK IN CHAIN 



_J4_ 
FIND POLLING 
CHARS THAT 
HAVE SAME 
INDEX BYTE AS 
IN FIRST BUFFER 



MAKE NEXT BRB 
ADDRESSABLE AND 
GET ADDRESS OF 
ACTIVE BUFFER 
REQUEST QUEUE 
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Chart D3. Line End Appendage Routine 



ENDLIST 
r Al- 



TRYEXIT 



SET CLEAN UP 
CODE IN IOB 
AND ERROR BYTE 
N IOBCSW 



SET CSW IN IOB 
TO POINT TO 
CCW FOLLOWING 
RESPONSE CCW 
AND SET BASE 



LINEE ^ D N0RM AL ENTRY 



SETUP BASE FOR 
IECKQQ01 AND 
ADJUST RETURN 
REGISTER 



SAVE REGISTERS 
14-9 FOR RETURN 
AND GET BASE 
FOR IFF019NG 




PLACE REQUEST 
ON READY QUEUE 
& POST LCB TO 
ITSELF 



RETURN TO IOS 



WTTA LINEAPPEND 
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Chart DT. Line End Appendage Routine (Continued) 



ADERR 

rAl — 



SETMSTATUS 
TO BYPASS 
HEADER 
ROUTINES 



I- Bl — 

SET DATA CHECK, 
TIME OUT, OR 
NEGATIVE 
RESPONSE 




SET POLLING/ 
ADDRESSING 
ERROR FLAG 



CLEAR DATA 
CHK, TIMEOUT 
OR NEG 
RESPONSE 



LOCATE TERM 
TABLE ENTRY 
FOR DEST 



SET CHANNEL 
PROGRAM 
RESTART 
ADDRESS 




RESREG 
rD3 — 



SET OFFSET IN 
BUFFER OF NEXT 
AVAILABLE 
CHAR POS 



TURN OFF 

IOB EXCEPTION 

FLAG 



C 



ITSATIC 

B4^ IS 
YES/ THE SEND 

BIT ON FOR^ 
'^THE LINE' 



NO 



C4' 

<Q THE RECEIVE ' 
\BIT ON for/ 



NOT1ST 
r B5 



GETADDR OF 
NEXT BRB'S 
CCW 



■ D4 — 

SET 

INSUFFICIENT 
BUFFERS FLAG 
ON IN LCB 



NOERROR 
-E4 



RETURN TO 
I/O FLIH 



j 



LOAD UCB 
ADDRESS 



LNSIOENT 
rF3 



D5T IS 

/ BUFFER 

\ IN DISK 

OPERATION 



NO 



INITIALIZE LOOP 
TO LOCATE 
START OF BRB 
THAT PROG CHK 
OCCURRED IN 



COUNT + 
SIZE - 
SEGSIZE 




FINNTIC 
-F4 



RLPREV 
rE5 



SET TIC 
POINTER FOR 
FIRST TIME 



FIND NEXT TIC 



PKRCVR 
F5' 



< 



IS 

BUFFER 

ALREADY 

ASSIGNED TO' 

THE, BRB 

NO 



•H4— 

INITIALIZE WITH 
CCW PRECEDING 
THE FAILING 
TIC 



•H5— 

MOVE HIGH 
PRIORITY INTO 
BRB 



© 



LOAD ADDRESS 
OF DCB 




© 







( RETURN TO IOS J 
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Chart DTI. Line End Appendage (continued) 
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Chart DU. Interim LPS Routine 



A3- 

GET THE SOURCE 
LCB ADDRESS 
FROM THE 
BUFFER PREFIX 



LPSDRCT 
r B3- 



SET SOURCE 
TERMINAL KEY 
IN MESSAGE 
PREFIX FROM 
LCB ENTRY 



C3- 



GET THE ADDRESS 
OF THE LPS 
QUEUE 



SET LOW 
PRIORITY IN 
BUFFER 
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Chart DV. Get Scheduler Routine 



f ENTER J 




XCHECK 

I — B3- 



GET THE ADDRESS 
OF THE LCB 
CONTAINED IN 
THE DEB FOR MS 
PROCESS QUEUES 



•B4 

SAVE SOURCE 
LCB ADDRESS 
AND PU1 DASD 
PROCESS LCB 
IN PREFIX 



IGG019NG DXB1 



LINK TO SCREEN 
IN DESTINATION 
DASD ROUTINE 



-D2 — 
GET THE ADDRESS 
OF THE LCB 
CONTAINED IN 
THE DEB FOR MS 
PROCESS QUEUES 



GETTEST 
rE2- 



GET THE 

ADDRESS OF THE 
BRB FROM THE 
CORE PROCESS 
QUEUE DEB 




-G3 

SET FLAG TO 
SHOW BUFFER IN 
DISK QUEUE AND 
GET DISK QCB 
FOR POSTING 



GET ADDRESS OF 
DASD PROCESS 
QCB FROM BRB 
AND MAKE IT 
ADDRESSABLE 



IGG019NG DKB4 



LINK TO SEND 

SCHEDULER 

ROUTINE 



-K3— 

LOAD PREFIX WITH 

DISK ADDRESS OF 

SEGMENT AND 

SET DISK 

OPERATION 



NT 

-C4- 



SEE RETURN BUFFER 
ROUTINE FOR CODE 
OF FLOWCHART 
BEGINNING WITH 
XCHECK. 



GET ADDRESS OF 
MS PROCESS 
QUEUE DCB 



D4 — 

GET NUMBER OF 

BUFFERS TO BE 

FILLED IN 

ADVANCE OF 

GET 



•^WAS^ 
E 4' EXACTLY \ N0 
ONE BUFFER x ^ 
\REQUESTECV 



F4 

TURN OFF FLAG 
SHOWING 
BUFFER IN DISK 
QUEUE 



RESET BUFFER 
COUNT WITH 
DECREMENTED 
VALUE 



I-H4— 
GET ADDRESS OF 
MAIN STORAGE 
PROCESS QCB 
FROM DEB 
FOR POSTING 




Dl I TO DISK END 
E2^ APPENDAGE 
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Chart DW. Return Buffer Routine 



RETURN BUFFER ROUTINE 

A, 

( ENTER Y~ 



A2 

GET THE MAIN 
STORAGE 
PROCESS QUEUE 
LCB FROM 
MESSAGE PREFIX 



-B2 — 
INDICATE THE BRE 
IN MS PROCESS 
DEB THAT BUFFER 
IS IN THE DISK 
QUEUE 



GO TO GET I DV 
SCHEDULER \ E2 




rD3- 



PUT RELATIVE 
RECORD ADDRESS 
OF NEXT 
MESSAGE IN MS 
PROCESS DEB 




r D5- 



PLACE REL REC 
ADDR OF NEXT 
MSG IN THE 
PROCESS QUEUE 
DEB 



rE2 



GET DCB ADDRESS 
FROM MS PROCESS 
QUEUE DEB AND 
BUMP COUNT OF 
ADVANCE BUFFERS 



-F2 — 

GET THE ADDRESS 

OF THE 

AVAILABLE 

BUFFER QUEUE 

FOR POSTING 




SET BOTH 
CLEANUP AND 
RECALL AND GET 
ADDRESS OF LPS 
QUEUE TO POST 



GETTESTX 
rK4- 



*.*«*- 



NOTE: SEE GET SCHEDULER 
RTN FOR FLOWCHART OF 
CODE BEGINNING WITH 
XCHECK. 



STORE QUEUE 
ADDRESS IN 
PREFIX AND 
RESTORE BUFFER 
ON READY QUEUE 



GO TO GET 
SCHEDULER 
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Chart DX. Destination DASD Routine 



~DX] FROM SEND SCHEDULER 
BlJ OR GET SCHEDULER 



-Al~ 

SET UP ADDRESS 
OF THE DISPATCH 
ROUTINE FOR 
EXIT ADDRESS 



SCREEN 

i-Bl- 




GET SOURCE 
LCB ADDRESS 
FROM MESSAGE 
PREFIX 



-CI — 
STORE ADDRESS 
OF DISK I/O 
QUEUE IN PREFIX 
AND PUT BUFFER 
ON READY QUEUE 



HAS LAST X 
JNPUT SEGMENT 
.BEEN SENT/ ' 




NO 



INDICATE \YES 
.REASSIGNED^ 




r-Gl— 
SHOW NEXT 
SEGMENT ADDRESS 
ASSIGNED AND 
SET DISK ADDRESS 
IN BRB 



JH1 B 



^HAS N 

1 BUFFER \ YES 

sBEEN ASSIGNED> 

sfOR DISK/ 

EEAp 

NO 



-J1- 

LINK THE BRB 
INTO THE BUFFER 
ON THE READY 
QUEUE 



•B2 — 

GET NUMBER OF 
MSGS AND 
INCREMENT BY 
ONE 




YES 





SETUP NEW 
LCB ADDRESS 



i i YES, 




-J2— 

MOVE CURRENT 
ADDRESS TO 
CURRENT HDR 



INIT 
r-K2- 



USE SOURCE LCB 



INDICATE 
PARTIAL MSG 
ANDSETMSG 
PRIORITY 



SEGRSM 

rA4- 



PUT NEXT 
MESSAGE ADDRESS 
IN PREFIX AND 
UPDATED ADDRESS 
INTO LCB 




INITIALIZE FOR 
SEARCH LOOP 
AND TO RESET 
BASE REG 



RLOOP 
rD3~ 



REMOVE LCB 
FROM SOURCE 
CHAIN FOR 
PREVIOUS 
MESSAGE 



I LOOP 
pE3- 



„C5- 



C EXIT TO LINK\ 
ADDRESS SET ) 
AT ENTRY J 



INITIALIZE LCB 
WITH NEXT 
SEGMENT 
ADDRESS FROM 
PREFIX 



•D5- 

MOVE HEADER 
ADDRESS TO 
PREFIX 



LINK LCB INTO 
SOURCE CHAIN 
FOR DESTINATION 
QUEUE BY 
PRIORITY 



-F3 — 
SET NEXT 
SEGMENT ADDR 
IN LCB AND PUT 
DISK ADDR IN 
QCBAND PREFIX 



BUMP DISK 
ADDRESS AND 
ESTABLISH 
BACKWARD 
CHAIN 




E5 

MOVE UPDATED 
DISK ADDRESS 
TO LCB AND 
BUMP DISK 
ADDRESS 



F5- 

EXITTO LINK 
ADDRESS SET 
AT ENTRY 



rG5- 



LINK LAST 
SEGMENT INTO 
BACKWARD 
CHAIN 



H5 ^^ 

/ EXIT TO LINK\ 
( ADDRESS SET ) 
VAT ENTRY J 
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Chart D¥. Cross Partition Move Routine 



QMOVE 
QMOVER 
^A2 



C 



ENTER 



3 



r B2 — 

ACCESS COM- 
MUNICATIONS 
VECTOR TABLE 
ANDTCB ADDR 




E2 WAS 
<^ REQUEST TO ^ 
CHANGE POLL' 
^STATUS' 

NO 



MOVE REQUESTED 
DATA 



UPDATE QFAC 
WITH NEW RRN 



SHOW 

RELEASEIN 

PENDING 
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Chart EA. Close Process Queue 
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•Chart EAl. Close Process Queue (Continued) 





REMOVE DUMMY 
LCB (DEB) FROM 
DESTINATION 
CHAIN 



RMVLCB 
-C2 



GET NEXT 
MQ-DCB 



LOAD TERMTBL 
ADDRESS AND 
INITIALIZE FOR 
FIRST TIME 



TERMLOOPr*"" 
-D2 — 



x IS 

D1 NEXTBFR^ 

<REALLY DUMMY> 

LAST 

ELEMENT 




LOAD QCB 
ADDRESS 



POST BUFFER 



03'™ IS A\ 

/GENERAL CLOSE^! 

DOWN PROCEDURE 

>OR QTAM' 






<NUMBER GREATER^ 

V THAN NO. OF' 

"EXTENTS 

V' 

NO 



IS 
H2 LCB THE"" 
<( SAME LCB IN 
PROCESS QUEUE 
DEB/ 



YES 



SETUPWTG 
_F3 



CLEAR ID TO 

INDICATE 

COMPLETE 




SETUP FOR 
NEXT ENTRY IN 
WHERE-TO-GO 
TABLE 



RESTORE 
LCB STATE 



XCTLRTNE 
_J3„ 



C 



GOTO 
IGG0203R 



J 
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Chart £B- Close Communications Line Group 



IGG0203N 
^A2 



CLOSE COM- 
MUNICATIONS 
LINE GROUP 



r B2- 



ACCESS THE DCB 
BEING CLOSED 



• C2 — 
FIND SIZE OF 
LCB AREA AND 
START OF LCB'S 
FOR LINE 
GROUP 



■D2- 



FREE STORAGE 
OCCUPIED BY 
LCB'S 



pE2— 
CLEAR LCB AND 
IOB POINTERS, 
STATUS BYTE 
AND LCB SIZE 
IN DCB 



SETUPWTG 
F2 



CLEAR ID IN 
WHERE-TO-GO 
TABLE AND 
ACCESS 
WORKAREA 



G2 / NEXr v 
y ENTRY IN 
"^WTG CALL FOR' 

"THIS ENTRY' 




/ CONTROL TO 
I NEXT ROUTINE 
\IN WTG TBLy 
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Chart EC. Close Direct Access Message Queue 



IGG0203O 



„A1 

CLOSE DIRECT 

ACCESS MESSAGE 

QUEUE 



ACCESS DCB 
AND THE 
TERMINAL 
TABLE 



NO 



-CI- 
CLEAR TERMINAL 
TABLE ENTRY IN 
COMMUNICA- 
TIONS VECTOR 
TABLE 



■Dl- 
LINK FIRST 
AVAILABLE 
BUFFER INTO 
FIRST 
AVAILABLE BRB 



El- 



RESET IOB 
ADDRESS IN 
DCB AND 
DISABLE 
INTERRUPTS 



r-Fl — 

SAVE REGISTERS 
5-15 IN SPECIAL 
SAVE AREA 
IN IGG019NG 




€> 



GET ECB 
ADDRESS & 
REMOVE STCB 
FROM CHAIN 



<D4- 

FIND THE TCB 
ADDRESS FROM 
LAST ELEMENT 
IN SVRB CHAIN 



LINK TO OS 
POST ROUTINE TO 
POST ECB DONE 



F4 

<WAS ENTRY"" 
FROM QCB y 
SECTION/ 




NO 



SETUPWTG 
rG2 



RELOAD 

REGISTERS 5-15, 
ENABLE 

INTERRUPTS AND 
CLEAR WTG ID 




/Transfer \ 
/ control to \ 
i next routine/ 

\ttsl WTG TB^/ 
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Chart ED. Close Routine 



IECKCIOS 



c 



CLOSEMC 



SAVE 

REGISTERS 

14-12 



ACCESS THE 
QMOVE 
STCB IN 
IGG019NG 



QPOST 



POST QMOVE 
TO ITSELF TO 
TURN OFF MASTER 
RCV SWITCH I I 



-E1- 



ACCESS TCB FOR 
MESSAGE 
CONTROL AND 
INITIALIZE FOR 
FIRST DEB 




NEXTEXT 
■ H2 — 



(RETURN TO USER J 



GET START PF 
LCB AREA AND 
INCREMENT 
LCB 
COUNTER 





STOPLN 



STOP THE 
LINE 
TRANSMISSION 



STARTLN 



RESTART THE 
LINE 
TRANSMISSION 



o^n 



Chart EE. Operator Control Routine 



IECKOCTL 
-AT 



C 



j 



-Bl — 

SAVE BASE REG., 
RETURN REG. TO 
MACRO, AND 
SCAN POINTER 



GET THE 
ADDRESS OF 
SCAN ROUTINE 



IECKSCAN CFA1 



ACCESS CTLMSG 
FIELD IN THE 
HEADER 



RESTORE THE 
BASE REGISTER 




CTLMSG >\ 

/ G2 THIS A \ 

<S INGLE SEGMENT> 

MESSAGE/ 



SAVE SCAN 
POINTER AND 
GET ADDRESS 
OF SCAN 
ROUTINE 



„F3 — 

IECKSCAN CFA1 



ACCESS MSGTYPE 
NAME FIELD IN 
HEADER 



RESET END OF 
SEGMENT, SCAN 
ERROR 
(LCBERRST) 




A5' COPY^ 

ERROR 
^COUNTERS?/ 



NO 



RELEASE 
MESSAGES 



STOP LINE 



^YES 



SET LCBDESTQ 
AND TTDKEY 
TO RETURN 
MESSAGE TO 
SOURCE 



RETURN 1 
"Jl 

RESTORE RETURN 
REG. TO MACRO, 
AND SCAN 
POINTER 



EE 
l J3 /RETURN2 



G5 








v YES 


START LINE 






["IK" 




NO 


U2 



-J3 — 

RESTORE RETURN 
REGISTER AND 
SCAN POINTER 



/RETURN TO NEXT 
UPS INSTRUCTION 



^K3- 



REENTER 
rJ4 



SET SERVICED 
FLAG IN PREFIX 
AND RETURN TO 
FREE BUFFER 




/EXIT TO MACRO \ 

WHICH BRANCHES) 

VrO ENDRCV / 
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Chart EF. Common Subroutines OPTCL 



SUBl 
r-Al- 



SAVE SCAN 
POINTER AND 
GET ADDRESS OF 
SCAN ROUTINE 



_B1 — 

IECKSCAN CFA1 



ACCESS 

TERM NAME FROM 

INCOMING 

MESSAGE 




RESTORE BASE 
REGISTER AND 
ADJUST SCAN PTR 
TO BLANK 
FOLLOWING 
TERM NAME 



r-Dl- 



GET ADDRESS OF 
THE LOOKUP 
ROUTINE 



A5- 



SAVE SCAN 
POINTER AND 
ACCESS QCB 
FOR TERMINAL 
ENTRY 



UNPACK 8 BYTES 
FROM TERMTBL 
OR COUNTER 
INTO BUFFER 



MOVE THE 
WORKAREA TO 
THE BUFFER FOR 
COUNT 



■C3— 

BUMP THE 
POINTERS TO 
OVERLAY LAST 
BYTE UNPACKED 



-D3— 

ADJUST THE 
COUNT FOR 
THOSE 
UNPACKED 



-El— 

IECKDRCT COB1 



FIND NO OFFSET 
TERMINAL ENTRY 
IN TERMBTL 





GET RELATIVE 
LINE NUMBER 
AND DCB 
ADDRESS FROM 
THE QCB 



CHKBLK1 

-D5 



SKIP BLANKS 
IN BUFFER 
FOLLOWING THE 
SCAN POINTER 



ARRANGE TO 
INSERT EOB- 
EOT INTO LAST 
2 BYTES OF 
BUFFER 



RESTORE BASE 
REGISTER AND 
PARAMETER LIST 
POINTER 



ENDBUF 
-F4 



RETURN MESSAGE 
TO SOURCE 




ADJUST THE 
BUFFER SIZE 
REMAINING 



INSERT 

EOB-EOT INTO 
BUFFER 



■G4- 



F5 ^^ 

RETURN TO A 
CALLING ) 

ROUTINE J 



RESET MSEGSZE 
IN BUFFER 
PREFIX 



GET BUFFER SIZE 
REMAINING 
FOLLOWING THE 
TERMNAME ENTRY 



-SI- 



/-H4- 
/ RETURN TO 
I CALLING 
V ROUTINE 



GET ADDRESS OF 
TERMINAL ENTRY 
IN TERMTBL 



^K2- 



(RETURN TO >. 
CALLING ) 

SUBROUTINE / 
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Chart EG. Common Subroutines OPTCL (Continued) 



RCOPYC 

_A1 

SUB1 



ROUTINE ACTIVATED AS RESULT 
OF POSTING COPY QCB TO ITSELF 



EFA1 



ACCESS TERMINAL 
ADDR AND 
BUFFER SIZE INFO 



C 



A3- 



EFA2 



GET QCB 
ADDRESS FROM 
TERMINAL 
ENTRY 



COPYCLR1 
_B3 



J 



RESTORE 
REGISTERS 14-11 
SAVED BEFORE 
QPOST 




I-C3— 
ADD THRESHOLD 
COUNTERS TO 
CUMULATIVE CTRS 
AND RESTORE 
CUMULATIVE CTRS 



■Dl — 
GET RELATIVE 
LINE NUMBER 
AND DCB 
ADDRESS FROM 
QCB 



USE SIZE OF 
COUNTERS FOR 
MOVE 



ACCESS LCB 
SIZE AND START 
OF LCB'S FROM 
THE DCB 



D3 WILL 
' COUNTERS > 
FIT INTO 
BUFFER , 



USE SIZE OF 
BUFFER FOR 
MOVE 



CALCULATE LCB 
ADDRESS FOR 
THIS LINE 
NUMBER 



^_F3 

UNPAK 



EFA3 



GO UNPACK 
AND TRANSLATE 
INTO BUFFER 



-Gl- 

GET ADDRESS OF 
THE COUNTERS 
IN THE LCB 



CLEAR ALL 
THRESHOLD 
COUNTERS 



SAVE 
REGISTERS 14-11 



f~ EXIT TO "\ 
V ^ DISPATCH J 



QPOST 



POST COPY 
QCB TO 
ITSELF 



EJf~| GO SEND COPIED 
vH5 \) COUNTERS TO 
N/ SOURCE 
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Chart Ed. Copy Termtbl Entry OPTCL Routine 



RCOPYT 
r A3 — 



EFA1 



ACCESS 
TERMINAL 
ADDRESS AND 
BUFFER SIZE 



r B3- 



EFK2 



ACCESS TNTRYSZE 
AND ADJUST 
FOR PORTION 
NOT COPIED 




USE TERMTBL 
ENTRY SIZE 
FOR MOVE 



USE BUFFER 
SIZE FOR MOVE 



EFA3 



TRANSLATE 
INTO BUFFER 
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Chart EI. Change Termtbl Entry OPTCL Routine 



RCHNGT 
r Al — 
SUB! 



EEA1 



ACCESS 

TERMINAL ADDR 
AND BUFFER SIZE 



CHKBLK 
Bl 



SKIP BLANKS 
FOLLOWING 
TERMNAME 




TRANSLATE 
TEXT 

INFORMATION 
IN BUFFER 



.El — 

SCAN BUFFER 

FOR DELIMITER 

(BLANK, EOB, 

EOT, OR INVALID 

CHARACTER) 




INSERT EOT IN 
BUFFER 
FOLLOWING 
TERMNAME 



ENDBUF 



EFF4 



LINK TO PUT 
EOB-EOT INTO 
BUFFER 



ACCESS TNTRYSZE 
AND ADJUST 
FOR PORTION 
NOT CHANGED 



EFH4 



USE DATA 
LENGTH FOR 
MOVE AND 
SAVE REGISTERS 
14-11 



POST CHANGE 
QCB TO ITSELF 



ROUTINE ACTIVATED AS RESULT 

OF POSTING CHANGE QCB TO ITSELF 






GET RELATIVE 
LINE NUMBER 
AND DCB 
ADDRESS FROM 
QCB 



■E4 — 

ACCESS LCB 
SIZE AND START 
OF LCB'S 
FROM THE DCB 



F4- 



CALCULATE LCB 
ADDRESS FOR 
THIS LINE 
NUMBER 
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Chart EJ. Intercept and Release OPTCL Routine 




INTERCPT 

^ A1 INTERCPT X 
fc SPECIFIED IN V 
.MACRO/ 



RRELEASM 
rA4- 



SUB1 EFA1 LINE 
TO GET 
TERMINAL 
ADDRESS 



SUBl 



GET TERMINAL 
ADDRESS 



■CI — 

GET THE QCB 
ADDRESS FROM 
THE TERMTBL 
ENTRY 





GET ADDRESS OF 
THE INTERCPT 
FIELD IN THE 
TERMTBL ENTRY 



D4— 

GET THE QCB 
ADDRESS FROM 
THE TERMTBL 
ENTRY 




PUT HEADER 
ADDRESS OF 
INTERCEPTED 
MESSAGE IN 
QUEUE 



G4— 

RESET INTERCEPT 
BIT TO ZERO IN 
TSTATUS 



SET THE SEND 
BIT ON IN 
TSTATUS 
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Chart EK. Start Line OPTCL Routine 



RSTARTLN 
r A2- 
SUB1 



EFA1 



LINK TO GET 

TERMINAL 

ADDRESS 



EFK2 



SUB2 



EFA5 



LINK TO GET 
LINE NUMBER 
AND DCB 
ADDRESS 



NOBLK 

rC2- 




REVERSE OFFSETS 
TO ALTERNATE 
AND CONTROL 
TERMINALS IN 
MACRO LIST 



EFF5 



SAVE BASE 
REGISTER FOR 
LINKAGE 




NOTALL 

rD3- 



GET ADDRESS OF 
IECKLNCH FOR 
LINKAGE 



GET ADDRESS OF 
IECKLNCH FOR 
LINKAGE 



rE3- 



IECKLNCH 



GO TO START 
ONE LINE 
ENTRY POINT 



IECKLNCH 



GO TO START 
ALL LINES 
ENTRY POINT 
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Chart EL. Stop Line OPTCL Routine 



RSTOPLN 
-Al 



SUB1 



EFA1 



ACCESS THE 

TERMINAL 

ADDRESS 



EFK2 



SUB2 



EFA5 



LINK TO GET 
LINE NUMBER 
AND DCB 
ADDRESS 




EFF5 




SET LINE COUNT 
EQUAL TO 1 AND 
GET LINE NUMBER 
FROM THE QCB 



-El— 
MAKE DCB ADDR 
AVAILABLE FOR 
TERMINAL ON 
LINE TO BE 
STOPPED 



i-Fl — 
GET THE ADDRESS 
OF THE SOURCE 
TERMINAL ENTRY 
AND ACCESS THE 
QCB FOR SOURCE 



fGl— 

GET LINE NUMBER 
AND DCB 
ADDRESS FOR 
SOURCE TERMINAL 



SOURCE 

hiterminaIn 

CtlNE GROUP TO> 
nBE STOPPED 




GET DEB ADDRESS 
FROM THE DCB 
AND GET NUMBER 
OF EXTENTS FROM 
THE DEB 




SET LINE COUNT 
EQUAL TO THE 
COUNT OF LINES 
AND SET LINE 
NUMBER TO 1 



SUBTASK 
rF3~ 



SAVE REGISTERS 
14-11 FOR 
SUBTASK 



QPOST 



POST STOP 

LINE QCB 
TO ITSELF 



EE I EXIT TO 
J V MACRO 
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Chart Eta. Stop Line OPTCL Routine (Continued) 



ROUTINE ACTIVATED 
BY POSTING THE 
STOPQCB TO ITSELF 



SUBTASK ACTIVATED WHEN 

LCBIS POSTED TO ITSELF C11DTAC1/1 

INDICATING LINE IS STOPPED bUBTA ^i_ 
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Chart Ert. Intrel OPTCL Routine 



RINTREL 
rAl 



SET THE SWITCH 
INDICATING 
INTREL 

CONTROL TO 
RSTOPLN 



TIMEQ 
r A2- 



CLEAR INTREL 
INDICATION TO 
RSTOPLN AND 
SET INTREL SWITCH 
IN THE LCB 



SUBTASK2 
r A3- 




REMOVE LCB 
FROM READY 
QUEUE, CLEAR 
INTREL 
INDICATION 
TO RSTOPLN 



BUILD2 
r B3 



SETUP ADDRESS 
OF STCB2 FOR 
TIMEQ EXIT AND 
SAVE LCB IN 
BUFFER 



SETA SWITCH IN 
THE BUFFER STCB 
FOR INTREL 
CONTROL WHEN 
LINE IS STOPPED 



C 



EXIT TO 
DISPATCH 



J> 



THIS CODE ENTERED 
WHEN 2 MINUTE 
INTERVAL EXPIRES 
FOR THE BUFFER 



C 



STCB2 
I-G2- 



D 



ACCESS THE LCB 
ADDRESS FROM 
THE BUFFER 



H2- 
SETUPTO FREE 
BUFFER 

REMAINING ON 
READY QUEUE 



SET UP TO POST 
THE LCB TO 
ITSELF TO 
RESTART LINE 




• C4 

SET UP TO POST 
A SPECIAL QCB 
TO THE LPS 
QUEUE AND 
SAVE REGISTERS 



INITIALIZE TO 
INSERT BUFFER 
INTO TIMEQ AS 
AN LCB FOR 2 
MINUTE DELAY 



EXIT TO POST 
QCB TO LPS 
QUEUE 



PREVENT LCB 
BEING STARTED 
WHILE BUFFER IS 
IN TIMEQ 



THIS CODE IS 
ACTIVATED BY 
IECKOPAW FOR 
AN IRRECOVERABLE 
ERROR 

C ENTER J 



GET ENTRY 
POINT TO THE 
TIME DELAY 
ROUTINE IN 
IGG019NG 



STOP4 
-F5 — 



RESTORE BASE 
AND ACCESS 
BUFFER AND LCB 
FROM IECKOPAW 



rTDjlEXITTO PUT 
VJ E2/ 1 BUFFER IN TIME 
N/ QUEUE 




SET INTREL 
SWITCH FOR 
RSTOPLN AND 
GO STOP THE 
LINE 



[~Nu|EXITTO POST 
•vKUrOUTINE in 
V IECKQQ01 



rEMlEXITTO 
key STOP THE 
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Chart EO. Operator Awareness Routine 




MOVE 

TRUNCATED 
MESSAGE TO 
BUFFER 



NSERT IDLE 
CHARACTERS AT 
START OF HEADER 
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Chart Fl. OPEN Line Group Load 1 Executor Routine 



Q 



OPEN LINE 
GROUP LOAD1 



Bl- 



) 



LOCATE THE 
TIOT FOR 
PARAMETERS 



DOBLKLP 

-Cl- 



GET CORE FOR 
DATA EXTENT 
BLOCK AND 
CONVERT TO 
ZERO 



INITDEB1 

-Dl- 



INITIALIZE AND 
INSERT THE DATA 
EXTENT BLOCK 
IN THE TCB 
CHAIN 



FORCE BUFFER 
REQUEST TO BE 
NOT LESS 
THAN 2 



DEBMOV1 
rFl- 



MOVE UCB FROM 
THE TIOT TO 
THE DEB 




Gl DIRECT \ NO 

i DEVICE^ 



-/ ABEND J 



HV 



INITIALIZE DEB 
WITH IOS RETURN 
ADDRESSES 




C 



J2-THIS OPEN 
-^MODULE TO BE* 
Nv USED 
^AGA I NI- 



NO 



J 



r K2 ~ 

( TO LOAD 2 



J 
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Chart F2. OPEN Line Group Load 2 Executor Routine 



IGG0193R 



/OPEN LINE 
V ^GROUP LOAD 2 



D 



l—Bl- 

INITIALIZE 
REGISTERS WITH 
CONTROL BLOCK 
ADDRESS 




YES 



SETUP PROPER 
SAD COMMAND 



CORRECT 

CllNFO FOR^ 

<83B3, 115A, TWX 




-Dl- 



DETERMINE THE 
NUMBER OFLCB'S 
NECESSARY 



GET CORE FOR 
THE LCB/IOB 



■Fl 

THE LCB AND 
IOB ADDRESSES 
AND DEVICE 
TYPE ARE STORED 
IN THE DCB 



Gl- 



IOB IS 
INITIALIZED 



IF AUTOPOLL 
LINE BIT 7 OF 
LCBFLAG2 
IS SET ON 



© 



NEXTLN 

r- Jl- 



MOVE DEVICE 
TYPE TO THE 
UCB 



<! 



D 



RESTART \NO 
IN PROGRESS/ 



SET ENABLE CCW 



©■ 



D3 
NO X AUTO CALi: X YES 
OR AUTO 
^ANSWER 




SET WRITE 
BREAK CCW 



STARTLN 






BUMP TO NEXT 
POINTER 




FOUNDCCB 
-G4— 



INITIALIZE 

RECEIVE 

SCHEDULER 



OUTONLY 
r J2- 



RESTORE 
LCB DATA 



IS X YES 

LINE ACTIVE . 



SET RETURN 
CODE, PRIORITY, 
AND START LINE 
INDICATION 




STOREECB 

r H5- 



SET 'DO NOT 

START 1 

INDICATION 



STORE ECB 
ADDRESS IN IOB 



GET NEXT LCB 
ADDRESS 



© 



( TO LOAD 3 J- 



K4 

SETUP 

WHERE-TO-GO 

TABLE 
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Chart F3. Open Line Group Load 3 Executor Routine 



G 



OPEN LINE 
GROUP LOAD 3 



CPFLAG 
r Bl — 



D 



-A2- 



SET SIO CODE FOR 
IECKLNCH AND 
SET NO PRIORITY 
SW IN LCB 



LOAD REGS FROM 
LOAD 2, ID & TTRL 
FLD NEEDED FOR 
LOAD 



n B2- 



XCTLRTNE 

rA3- 



MOVE ID TO 
NAME FIELD & 
TTR TO WTG 
TABLE 



ISSUE SVC 
EXCP (0) 



r _Cl_ 
LOADROUT F3D3 



ISSUE LOAD SVC 



r B3- 



LONGLOAD 
-A4 



SET LENGTH OF 
FIRST TEXT 
RECORD TO 1024 



SET DE SWITCH 
ON 




PICKUP 
DEVICE CODE 



INDICATE MORE 
THAN ONE 
RECORD 



ISSUE SVC 
XCTL (7) 



rD2- 

GET ADDRESS OF 
EXECUTOR 
WORK AREA 



LOADROUT 
r D3 



SET STANDARD 
LOAD ATTRIBUTES 



LOADROUT F3D3 



ISSUE LOAD SVC 



GET TOTAL 
LENGTH OF 
MODULE 





BUMP TO GET 
NEXT VD FIELD 
& BUMP DEVICE 
COUNT BY ONE 



© 



STORE: VECTOR 
LIST ADDR 
DEVICE CODE 
AND NO OF 
ROUTINES 



■Jl— 
LOAD: NUMBER 
OF LINES, SIZE 
OF EACH LCB/ 
IOBAND LCB 
POINTER 



NEXTSIO 
-Kl 



ISSUE SVC 
LOAD (8) 



GET NEXT ENTRY 



■® 



-J3 — 
UPDATE POINTER 
TO SUBROUTINE 
ID SECTION IN 
DEB & INCREMENT 
COUNT OF 
SUBROUTINES 
LOADED 



LOAD IOB ADDR 
AND BUMP LCB 
POINTER TO THE 
NEXT LCB 



C RETURN J 



2M 



Chart F4. OPEN Direct Access Message Queue Routine 



IGG01930 



/OPEN DIRECT ^v 
( ACCESS MESSAGE] 
\CHJEUE 




OPENCP 



GET TERMTBL 
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Chart F5. OPEN Direct Access Load 2 Routine 
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OF QCB FROM 
TERMINAL 
TABLE 




r F1 — 

STORE MESSAGE 
QUEUE ADDRESS 
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INDICATE 
COMPLETION 
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Chart Fb. OPEN Checkpoint Data Set Routine 
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IN WORK AREA 



SET READ 
COMMAND 



DISKIO 



READ CHECK 
POINT RECORD 



D2— 

STORE TERM 
LENGTH AND 
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Chart F7. OPEN Checkpoint Data Set Routine (Continued) 
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SAVE QUEUE 
ADDRESS 



UPDATE 
rGl- 
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> Chart F8. QTAM Open Line Group Load 4 
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►Chart F9. Close Process Queue Load 2 
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SET PRIORITY 
MASK TO MAKE 
SVRB ZERO 



NEXDDEB 
-CI — 



■© 




ACCESS ADDRESS 
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Chart FA. Checkpoint Routine 
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C 
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Chart fb. Checkpoint Routine (Continued) 
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C.P. RECORD 



SET REGISTERS 
TO START OF 
EACH FIELD IN 
THE WORK AREA 



TERMLOOP 
D1 



ACCESS FIRST 
(NEXT) ENTRY IN 
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Chart NU. QTAM Nucleus (1 of 2) 
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G5 
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QTAM Charts 253 



Chart NV. QTAM Nucleus (2 of 2) 




REMOVE ITEM 
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r B2— 

REPLACE RECB 
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BD 
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SETQKEY IN 
QCB EQUAL 
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SET KEY 
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EXIT SELECT 
SUBROUTINE 




D3- 
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SUBTASK 
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EXIT INTERFACE 
SUBROUTINE 
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Chart qa. Terminal Test HDR Analysis Module 
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/^TRANSFER X 
/ CONTROL TO ] 
I 2260 DEVICE J 
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Chart QL. Resident Terminal Test Module 
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Chart QS. Terminal Subtasks 
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Chart Q3. 103 Terminal Test Module 
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Chart Q4. 2740 Terminal Test Module 
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Chart Q5. 1050 Terminal Test Module 
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Chart Qb. 1060 Terminal Test Module 



1060 TERMINAL TEST MODULE 
(TYPE 4 SVC ROUTINE) 
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Chart Q8. 2848/2260 Terminal Test Module 
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• Chart Rl. WTTA Line PCI Appendage Routine 
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• Chart R2. WTTA Line End Appendage Routine (Part 1 of 3) 
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ENTRYNG 
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r-C4- 
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COUNTER 
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RESTART 
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CCW ADDRESS 
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D 
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RESTART ADDRESS 
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• Chart R3. WTTA Line End Appendage Routine (Part 2 of 3) 
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• Chart R4, WTTA Line End Appendage Routine (Part 3 of 3) 




-C4 

SET 
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BITS IN 

ERROR HALFWORD 



■D4 

MOVE 
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APPENDIX A: QTAM QUEUES AND SUBTASKS 



QUEUES 



ACTIVE BUFFER REQUEST QUEUE 

QCB: Preassembled in the Implementation 
module; laoeled BREQ. 

Element Chain : Dynamically created. An 
element appearing on this chain is an 
active buffer request block (BRB) repre- 
senting a BRB ring. The ring is formed by 
a transfer-in-channel address in each BRB 
pointing to the next BRB. The element 
chain, which is distinct from the ring, is 
formed by the link address in the BRBs in 
the chain. 



COMMUNICATIONS LINE QUEUE 

QCB : Formed by the first 12 bytes of the 
line control block,* which is created during 
OPEN. 



Element Chain : 
LCB itself. 



Limited to a pointer to the 



STCB Chain : May contain the STCB for the 
line's receive scheduling subtask and/or 
the STCB for the line 's send scheduling 
subtask (or more than one send scheduling 
STCB if separate queues are maintained for 
each terminal) . Always ends with the STCB 
for the QEVENT generalized queue handling 
subtask. 



STCB Chain : Limited to the STCB for the 
active buffer request subtask. 



ADDITIONAL CCW QUEUE 

QCB : Preassembled in the module (IECKPAUS) 
introduced through the appearance of the 
PAUSE macro instruction in the message con- 
trol program; labeled INSERTQ. 

E lement Chain : Generated in the problem 
program on expansion of the BUFFER macro 
instruction; labeled IECKISRT. A chain of 
special purpose BRBs used to schedule and 
contain channel commands for the transmis- 
sion of idle characters. 

S TCB Chain : May contain the STCB for the 
LPS subtask. Always ends with the STCB for 
the queue insert subtask. 



AVAILABLE BUFFER QUEUE 

QCB : Preassembled in the Implementation 
module; laoeled BUFFER. 

Element Chain : Generated in the problem 
program on expansion of the BUFFER macro 
instruction; labeled IECKBUFF. A chain of 
operationally empty buffers. 

STCB Chain : Limited to the STCB for the 
available buffer subtask. 



MOVE DATA QUEUE 

QCB: Preassembled in the QTAM Implementa- 
tion module; labeled QMOVE. 

Elemen t Chain : Limited to the dummy last 
element (IECKSTOP) . 



DASD DESTINATION QUEUE 

QCB : Generated in the problem program on 
expansion of a TERM macro instruction; 
labeled QUEUEn, where "n" is a sequence 
number reflecting the number of TERM and/or 
PROCESS macro instructions previously 
encountered during assembly. 

Element Chain : The element chain pointer 
in a DASD destination QCB is the relative 
record number of the header segment of the 
first message in the queue of messages, on 
the direct access storage device, for the 
destination. In the message chain, each 
header segment is linked to the next header 
segment and the preceding header segment by 
means of internal control fields. Text 
segments, which are also on the direct 
access storage device, are linked to each 
other and to the header segment to which 
they relate, through self contained DASD 
addresses. 

Note that the relative record number 
simply reflects the sequence (1 through n) 
in which header segments were encountered. 
This number is subsequently converted to a 
relative DASD address, which, in turn, is 
converted to an actual DASD address. 

STCB Chain : May contain the STCB for the 
destination line's send scheduling subtask. 
Always ends with the STCB for the DASD 
destination subtask. 



DISK INPUT/OUTPUT QUEUE 

QCB : Preassembled in the implementation 
module; labeled DISK. 
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Element Chain : Dynamically created. A 
chain of BRBs (containing channel command 
words) for direct access Read operations , 
intermixed with full buf f ers , to be written 
on the DASD. 



LPS QUEUE 



Preassembled in the Implementation 
module; labeled LPS. 



STCB Chain : Limited to the STCB for the 
disk input/output subtask. 



DISTRIBUTION LIST QUEUE 

QCB : Preassembled in the module (IECKDLST) 
introduced by the appearance of the LIST 
macro instruction in the problem program. 

Element Chain : Limited to the dummy last 
element labeled IECKSTOP. wo element chain 
is developed. Elements related to a dis- 
tribution list are immediately transferred 
to the DASD destination queue for the first 
terminal in the distribution list. 



Element Chain : Dynamically created. A 
chain of empty buffers, to be used for mes- 
sages coming in from terminals, inter- 
spersed with message-filled buffers to be 
processed by the LPS routine. 



STCB Chain : May contain the STCB for the 
LPS subtask. Always ends with the STCB for 
the queue insert by priority subtask. 



DASD PROCESS QUEUE 



STCB: 



Limited to the STCB for the distri- 



bution list subtask. 



INACTIVE BRB QUEUE 

QCB: Preassembled in the Implementation 
module; labeled AVREQ. 

E lement Chain : Generated in the problem 
program on expansion of the BUFFER macro 
instruction; labeled IECKAVRQ. A chain of 
BRBs of which the third and fourth full- 
words are effectively empty. 

STCB Chain : May contain the STCB for the 
line's receive scheduling subtask and/or 
the STCB for the line's send scheduling 
subtask (or more than one send scheduling 
STCB if a separate queue is maintained for 
each terminal) . Always ends with the STCB 
for the queue insert subtask. 



QCB : Generated in the problem program on 
expansion of the PROCESS macro instruction; 
labeled QUEUEn, where "n" is a sequence 
number reflecting the number of TERM and/or 
PROCESS macro instructions previously 
encountered during assembly. 



Element Chain : (Refer to the element chain 
description for the DASD destination QCB) . 



STCB Chain : May contain the STCB for the 
process queue's Get scheduling subtask. 
Always ends with the STCB for the DASD 
destination subtask. 



RETURN BUFFER QUEUE 

QCB : Preassembled in the Implementation 
module; labeled GETRET. 



INTERIM LPS QUEUE 

QCB : Preassembled in the Implementation 
module; labeled INTLRM. 



Element Chain : Limited to the dummy last 
element labeled IECKSTOP. Buffers returned 
from a GET are immediately transferred to 
the available buffer queue. 



Element Chain : Limited to the dummy last 
element labeled IECKSTOP. Elements are 
immediately transferred to the LPS queue. 



STCB Chain : Limited to the STCB for the 
return buffer subtask. 



STCB Chain : Limited to the STCB for the 
interim LPS subtask. 



COPY CLEAR QUEUE 



TIME QUEUE 



QCB : Preassembled in the Operator Control 
routine; labeled COPYCLR. 



QCB : Preassembled in the QTAM Implementa- 
tion module; labeled TIMEQ. 

Element Chain : Dynamically created. An 
element appearing on this chain is an LCB 
waiting for an interrupt from the TIMER. 



Element Chain : There is no element chain 
as this QCB is always posted to itself. 

STCB Chain : Limited to the STCB for the 
Copy Clear subroutine in the Operator Con- 
trol routine. 
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CHANGE QUEUE 



CHECKPOINT QUEUE 



QCB : Preassembled in the Operator Control 
routine; labeled CHANGE. 

Element Chain ; There is no element chain 
as this QCB is always posted to itself. 

S TCB Chain : Limited to the STCB for the 
Change subroutine in the Operator Control 
routine. 



QCB : Preassembled in IGG019NH module in a 
dummy checkpoint LCB; labeled START. 

Element Chain : This QCB has no element 
chain as it is posted to itself. 

STCB Chain : Limited to the STCB for the 
Checkpoint subtask. Always ends with a 
dummy end element. 



STOP QUEUE 

QCB : Preassembled in the Operator Control 
routine; labeled STOP. 

Element Chain : There is no element chain 
as this QCB is always posted to itself. 

STCB Chain : Limited to the STCB for the 
Stop subroutine in the Operator Control 
routine. 



CHECK REQUEST QUEUE 

QCB : Preassembled in IGG019NH module; 
labeled CKQUE. 

Element Chain : Dynamically created. The 
elements are ECBs of partitions waiting for 
a checkpoint to be taken. 

STCB Chain : Limited to the check request 
subtask in the Checkpoint/Restart routine. 
Always ends with a dummy end element. 



ST0P4 QUEUE 

QCB : Preassembled in the Operator Control 
routine; labeled ST0P4. 

Element Chain : There is no element chain 
as this QCB is always posted to itself. 

STCB Chain : Limited to the STCB for the 
Stop 4 subroutine in the Operator Control 
routine and is used by the Operator 
Awareness routine. 



STOP THE LINE QUEUE 

QCB : Preassembled in the Operator Control 
routine; labeled ST0P2. 

Element Chain : Dynamically created. The 
element chain consists of buffers that are 
used to transmit operator control messages, 

STCB Chain : Limited to the STCB for the 
Stop 3 subtask in the Operator Control 
routine. 



GET SVC 1 QUEUE 

QCB : Preassembled in the Operator Control 
routine; labeled GETSVC1. 

Element Chain : Dynamically created. Ele- 
ments are transferred to the LPS queue. 

STCB Chain : Limited to the STCB for the 
Get SVC 2 subtask in the Operator Control 
routine. 



LINE CHANGE QUEUE 

QCB : Preassembled in IECKLNCH module; 
labeled QUEUE. 

Element Chain : Dynamically created. An 
element appearing on this chain is an LCB 
for a line that is to be started. 

STCB Chain : Limited to the STCB for a sub- 
task in the Line Change routine. 



DIAL OUT-CALL QUEUE 

QCB : Formed in the DEB during OPEN for 
each line group of dial lines. 



Element Chain: 



None.. 



STCB Chain : The chain may consist of send 
scheduler STCBs for messages that were sent 
to terminals that were busy. 



SUBTASKS 



ACTIVE BUFFER REQUEST SUBTASK 

STCB : Preassembled in the Implementation 
module; labeled BREQENQ. 

Program Entry : Enters the Active Buffer 
Request routine at BREQENQ+6. 



AVAILABLE BUFFER SUBTASK 

STCB : Preassembled in the Implementation 
module; labeled BFRENQ. 
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Program Entry : Enters the Available Buffer 
routine at BFRENQ+b (alternate label 

BFRREQ) . 



QUEUE INSERT BY PRIORITY SUBTASK 



STCB : Preassembled in the Implementation 
module; labeled QPRIRTY. 



DASD DESTINATION SUBTASK 

STCB : Preassembled in tne Implementation 
module; labeled IECKMQ. 

Program Entry : Enters the DASD Destination 
routine at IECKMQ+6. 



Program Entry : Enters the Implementation 
module at QPRIRTY+6 (an unconditional 
branch to the Queue Insert subroutine by 
the Search Priority subroutine (PRIORITY) 
of the QTAM control program) . 



QDISPATCH SUBTASK 



DISK INPUT/OUTPUT SUBTASK 

STCB: Preassembled in the Implementation 
module; labeled DISKENQ. 

Program Entry : Enters the Disk Input/ 
Output routine at DISKENQ+6. 



STCB : Preassembled in the Implementation 
module; labeled QEVENT. 

Program Entry : Enters the Implementation 
module at QEVENT+6 (an unconditional branch 
to the Qdispatch subroutine (DISPATCH) of 
the QTAM control program) . 



DISTRIBUTION LIST SUBTASK 

STCB : Preassembled in module IECKDLQT, 
located at IECKDLQT+8. 

Program Entry : Enters the module at 
IECKDLQT+14. 



GET SCHEDULING SUBTASK 

STCB : Preassembled within the Implementa- 
tion module; labeled GETSCH. 

Program Entry : Enters the GET Scheduler 
routine at GETSCH+6. 



RECEIVE SCHEDULING SUBTASK 

STCB : There is one receive scheduling sub- 
task for each line; the STCB for the sub- 
task is contained in the third and fourth 
fullwords of the corresponding line control 
block. 

Progra m Entry : All receive scheduling sub- 
tasks enter the Receive Scheduler routine 
at RCVSCH. 



RETURN BUFFER SUBTASK 



STCB : Preassembled with the Implementation 
module; located at GETRET+8. 

Program Entry : Enters the Return Buffer 
routine at GETRET+14. 



LPS SUBTASK 



STCB: 



The STCB for the LPS subtask is 



transient and is dynamically formed within 
the supervisor request block created on 
issuance of an SVC 6 5 or 67 by the subtask. 

Program Entry : Activation of the LPS sub- 
task causes the message control program to 
be re-entered at the instruction following 
the supervisor call. 



QUEUE INSERT SUBTASK 



SEND SCHEDULING SUBTASK 

STC B: There is one send scheduling subtask 
for each line or for each terminal, as 
specified by the user. The STCB for the 
subtask is contained within the third and 
fourth fullwords of the QCB for the corre- 
sponding DASD destination queue. 

Program Entry : All send scheduler subtasks 
enter the Send Scheduler routine at 

ENQUEUE. 



STCB : Preassembled in the Implementation 
module; labeled QLIFO. 

Program Entry : Enters the Implementation 
module at QLIFO+b (an unconditional branch 
to the Queue Insert subroutine (LIFO) in 
the QTAI4 control program) . 



TIME SUBTASK 

STCB : Preassembled within the QTAM Imple- 
mentation module; labeled TIMEEND. 

Program Entry : Enters the End of Poll Time 
Delay routine at TIMEEND+6. 
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MOVE DATA 3UBTASK 

STCB ; Preassembled within the QTAM Imple- 
mentation module; labeled QMOVER. 

P rogram Entry ; Enters the Cross Partition 
Move routine at QMOVER+6. 



STOP 5 SUBTASK 



STCB : Preassembled in the Operator Control 
routine; labeled STOP5. 

Program Entry : Enters the subtask in the 
Operator Control routine at STOP5+8. 



COPY CLEAR SUBTASK 

STCB : Preassembled in the Operator Control 
routine; labeled COPYCLR1. 

Program Entry : Enters the subtask in the 
Operator Control routine at C0PYCLR1+6 to 
be in supervisory mode. 



CHECKPOINT SUBTASK 

STCB : Preassembled in the Checkpoint/ 
Restart module; labeled TERMTBL,. 

Program Entry : Enters the subtask in the 
Checkpoint/Restart routine at CON+2. 



CHANGE 1 SUBTASK 

STCB : Preassembled in the Operator Control 
routine; labeled CHANGE1. 

P rogram Entry : Enter the subtask in the 
Operator Control routine at CHANGE1+6 to be 
in supervisory mode. 



CHECK REQUEST SUBTASK 

STCB : Preassembled in the Checkpoint/ 
Restart module; labeled CKSTCB. 

Program Entry : Enters the subtask in the 
Checkpoint /Res tart routine at CKSTCB+6. 



STOP 1 SUBTASK 



STCB : Preassembled in the Operator Control LINE CHANGE SUBTASK 



routine at ST0P1+6 to be in the supervisory 
mode. 

Prog ram Entry : Enters the subtask in the 
Operator Control routine at ST0P1+6 to £>e 
in supervisory mode. 



STCB : Preassembled in the Line Change rou- 
tine; labeled STCB. 

Program Entry : Enters the subtask in the 
Checkpoint/Restart routine at STCB+8. 



STOP 3 SUBTASK 



STCB : Preassembled in the Operator Control 
routine; labeled STOP3. 

Program Entry : Enters the subtask in the 
Operator Control routine at STOP3+8. 



GETSVC 2 SUBTASK 

STCB : Pre assembled in the Operator Control 
routine; labeled GETSVC2. 

P rogram Entry : Enters the subtask in the 
Operator Control routine at GETSVC 2 + 8. 



QDISPATCH SUBTASK 

STC B: Preassembled in the Implementation 
module; labeled QEVENT. 

Program Entry : Enters the Implementation 
module at QEVENT+6. If the LCB indicates a 
dial line, a switch is set to cause the 
Activate routine to set up a Write Negative 
Acknowledgment channel program. A branch 
is taken to the BRB Ring routine to check 
the dial out-call queue. If the line is 
not for a dial line r a branch is taken to 
the Qdispatch subroutine (DISPATCH) of the 
QTAM control program. 
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APPENDIX B: 



SYSTEM CONTROL BLOCKS 



GENERAL CONTROL BLOCK FORMS 



QUEUE CONTROL BLOCK 



Typical DSECT : 


+ 4 
+ 8 
+12 
+ 16 
+ 20 
+ 24 
+28 

General Form: 



r 

| QKEY 


-T 

1 
L ^_ 




QFAC 


| QPRI 


T 

1 

_X 




QLINK 




T 

1 




QTRAN 




| QRLN 


T 

1 

I 




QDCB 


| QSIZE 


1 

_X_ 


QNASEG 




T 

1 

J. 




QSORCE 


| QDUMMY 
I 


T 

1 

-X 




QBACK 



r T _ 

I key | 

I- +- 

| priority | 

h +- 

I I 
I- +- 

I I 

i X- 



element chain pointer 

link address 
STCB chain pointer 



r T 

| line no. | 

F x T . 

| no. of messages | 



DCB address 



address of 



b T - 

| segment | 



LCB address 



| dummy =0 | 
L x_ 



message address 



Contents : 

key : a numeric value (1*2, or 3) indicat- 
ing queue status. 

1 — not on ready queue 

2 — not waiting 

3 — waiting 

(See Queue Status for more information on 
key meanings.) 

element chain pointer : a pointer to the 
head of the element control block chain for 
the queue. 

priorit y: priority of the queue the QCB 
represents; determines the relative posi- 
tion of the QCB when linked into the ready 
queue. 

link address : a pointer to the next item 
on the ready queue. This field is meaning- 
ful only when the QCB is on the ready 
queue. 

line no. : the relative line number within 
the line group of the DCB. 

DCB address : the address of the DCB asso- 
ciated with this QCB. 

no. of messages : the number of messages on 
the queue to determine the size of the 
queue. 

address of segment : the address of the 
area into which the next message segment is 
to be read. 

LCB address : the address of the first LCB 
on the line control block chain. 

dummy : always equal to zero. 

message address : the disk address of the 
last message placed on this queue. 
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DASD QCB : 




+ 4 
+ 8 
+ 12 
+ 16 

+ 20 

+24 
+ 28 




+ 4 

+ 8 

+12 

+16 

+ 20 

+ 24 

+ 28 



QCB for DASD Process Queue 

T" 



QKEY 3 



Disk address of next message to come off queue 



I 

I 
_X_ 



Address of the Get Scheduler 
Address of the LCB 
Zero 



QSIZE size of queue 



I 

-X- 



Disk address of next available 
segment to be written on queue 



QSOURCE pointer to start chain of LCBs 



Disk address of last message placed on this queue 



QCB and STCB for DASD Destination Queue 



QKEY 



I 

I 

-+- 



Disk address of next message to come off queue 



DASD address of the last message to be 
retransmitted in a restart 



Relative offset 
to Send Scheduler) 
+ 

Priority of | 
Send Scheduler | 
+ 

Relative | 
line number j 

X 

QSIZE size of queue 



Pointer to Send Scheduler routine 



Link field of Send Scheduler 



DCB address 



Disk address 
Continued 



reserved 



I 

I 

-+- 



I 

-X- 



Disk address of the next 
message to go into queue 



QSOURCE pointer to start of chain of LCBs 



End bit 
set to 1 
if expedite 



Send 

Scheduler 

STCB 



| Disk address of last message placed on this queue j 

-X j 



RESOURCE ELEMENT CONTROL BLOCK 
Typical DSECT ; 



FKEY 



h 



+ 4 | FPRI | 



General Form: 



| key = | 

h +- 

| priority | 



FQUEUE 



FLINK 



QCB address 
link address 



— i 

I 

-H 

I 
j 



key : always equal to zero. 



QCB address : a pointer to the QCB for the 
queue to which the element has been posted. 
This field is meaningful only while the 
element is on the ready queue., or is being 
handled by the Qdispatch subroutine after 
having been encountered on the ready queue. 

priority : priority of the element that the 
control block represents • This field 
determines the relative position of the 
element when linked into the element chain 
of a QCB. Priority 255 identifies the last 
element in a chain; this is a dummy element 
usable only as an indication that the end 
of the chain has been reached. QTAM con- 
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trols element priority as required for 
internal sequencing. 

link address : a pointer to the next ele- 
ment control block in the chain; the last 
element in a chain links to itself. This 
field is meaningful only when the element 
control block is linked either into the 
element chain of a queue control block or 
into the ready queue. 



TRUNCATED SUBTASK CONTROL BLOCK 



Typical DSECT : 



r 1 

| TFILL | 

j. - T .| 

+ 4 | TPRI | TLINK | 

L X . J 



General Form: 



r T 1 

| return code| | 

h + ) 

| priority | link address | 

L X J 



Contents : 



return code : branch modifier; a numeric 
value (a multiple of 2 greater than zero) 
added to the resolved address of storage 
location NRET to provide the instruction 
address to be branched to when the subtask 
this STCB represents is activated. Common- 
ly appears in the QTAM assembly listing in 
the form DC ALl (entry - NRET) , where 
"entry" is the label of the branch address. 

priority : priority of the subtask the STCB 
represents; determines the relative posi- 
tion of the STCB when linked into the STCB 
chain of a queue control block. Priority 
255 identifies the last STCB in a chain. 

QTAM sets the priority value of STCBs 
for send scheduling subtasks as required to 
support the send versus receive priority 
specified by the user in the DCB for the 
data set. 

link address : a pointer to the next STCB 
in the STCB chain; the last STCB in a chain 
links to itself. This field is meaningful 
only when the STCB is linked into the STCB 
chain of a queue control block. If the 
STCB is not linked in a chain, the last two 
bytes of the link address field are 
truncated. 



FULL SUBTASK CONTROL BLOCK 



Typical DSECT : 



I 

I" T 

+4 j TPRI ] 

I- J— - 

+8 | XRBSZ 

»■ T— 

+12 | XRBUSE j 

I- X — 

+ 16 | 

I 
+ 20 | 

h 

+24 | 

h T 

+28 j XRBWT j 

I- x 

+ 32 | 

I 
+ 92 | 



TFILL 



] 
-X- 



TLINK 

XSTZB 
XRBEP 



XRBPSW 



XRBQ 



XRBLNK 



XRBREG 



L 

General Form: 





r t 
| return | 
| code=0 ] 
l X- 




QCB address 


+4 


r T 

| oriorityj 

L~ - - X 




link address 


+8 


r 

| STCB size 

L 


T ~" 

1 

X 










+24 


r 

i 

L ._ 




ECB 


+32 


r — 

1 r 

L 


egij 


3ter save area 










+ 92 


r 

1 

L 







Contents : 

Return code : always zero. 

QCB address : the address of QATTACH. 

priority : same as for a truncated STCB f 
but never 255. 

link address : same as for a truncated 
STCB. 

STCB size : 96. The size of the STCB is 96 
bytes since the STCB is created within an 
SVRB including a register save area. 

ECB : Event Control Block. This word is 
used for waiting or posting completion of 
the task. 

LINE CONTROL BLOCK 

The LCB contains the IOB, which can be 
referred to as prefixed by the LCB or ICB 
depending upon the DSECT issued. 
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Typical DSECT : 




+ 4 
+ 8 
+12 
+16 
+20 
+ 24 
+ 28 
+ 32 
+ 36 
+ 40 
+ 44 
+ 48 

+ 52 

+ 56 
+ 60 
+ 64 

+ 68 

+ 72 
+ 76 

+ 80 

+ 84 

+ 88 
+ 92 

+ 96 



r t 

LCBSTATE | 
X 

LCBCECB | 
X. 



LCBCPRI | 
x 



LCBENDOP 
LCBRCADD 
LCBSCHAD 

LCBSCHLK 

LCBCHDR 

"T 

LCBNASEG 

LCBSORCE 
LCBDESTQ 

LCBMPLRT | LCBCLPCI 

x 



LCBCSEG 
T 



I 

-X- 



I 
-J— 



LCBMSGPR I 



LCBCLCCW 

T 

LCBERRST I LCBBRKCT 



-T- 

I 



LCBTTIND | LCBDLPTR 
T X 

LCBFLAG1 I LCBFLAG2 | LCBSENSE 
IOBFLAG1 | IOBFLAG2 | IOBSENS0 IOBSENS1 
X X 



LCBECBPT 
IOBECBPT 



IOBCOMAD 



IOBCNT 



IOBSTAT0 J IOBSTAT1 j 

X X 

LCBSIOCC | LCBSTART 

IOBSIOCC | IOBSTART 

L X 

|LCBDCBPT 
IOBWGHT j IOBDCBPT 

X 

LCBRESTR 



LCBINCAM 
I OB INC AM 



LCBTRST 



I 
T +- 

LCBUCBX |LCBPTEMP| 

X X 

LCBPOLCT| LCBPOLPT 

X 

LCBERCCW 



LCBERRCT 
IOBERRCT 



l~ 



LCBCPA 
(CHANNEL PROGRAM AREA) 



LERACDC 



LERACTR 
T 



H 



| LERACIR 
_ + T 

|LERTHTR | LERTHDC 
_ + + ^ 

| | line | temporary 
LERTHIR JLERTHTO (number (counters 
— . ,_x__ .-X . x 



LERACTO 

T 





Contents : 










1 

^ 

^ 


Field 


Bytes 






Description 


LCBSTATE 


1 


00 
01 
02 

04 


= 


inactive 

free 

partial message 

in queue 

send 


^ 






08 
10 


= 


receive 
initate 


i 

i 






20 
40 
80 


= 


converse 

recall 

cleanup 



LCBENDOP 



LCBCECB 



LCBRCADD 



(all numbers given in hex 
notation) 



For an incoming message, 
contains the contents of 
the return register (14) 
from the ROUTE macro. For 
an outgoing message, con- 
tains the address of the 
LCB for the originating 
line. 



BTAM opcode for current 
segment of current 
message*. 

Disk address of the last 
correctly transmitted seg- 
ment in current message. 



(The receive scheduler STCB is bytes 8-15.) 



LCBSCHAD 



LCBCRPI 



LCBSCHLK 



LCBCHDR 



LCBCSEG 



LCBNASEG 



LCBSORCE 



LCBMSGPR 



Address of the first wait- 
ing QTAM subtask for the 
LCB. 

Priority of the receive 
scheduler. 

Link field of the receive 
scheduler. 

Disk address of the cur- 
rent message header. 

Disk address of the cur- 
rent message segment. 

Pointer to the first seg- 
ment of the last message 
received on this line that 
is to be transmitted. 

Address of the chain of 
LCBs for source lines cur- 
rently sending to the same 
destination (low order bit 
= "in-source chain" flag) . 

Priority of the current 
incoming message. 
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LCBDESTQ 3 Address of the QCB for 
destination terminal. 

LCBMPLRT 1 Scan pointer for next 
destination. 

LCBCLPCI 3 Address of last CCW for 
which PCI was received. 

LCBCLCCW 4 Address of the last BRB 
for which a buffer was 
assigned. 

LCBERRST 2 Error halfword. 

LCBBRKCT 2 If receiving, contains the 
last status of the SEQUIN 
(terminal table) . If not 
receiving , contains the 
time of the requested 
interrupt. 

LCBTTIND 2 Pointer to terminal table 
entry for current message. 

LCBDLPTR 2 Pointer to next entry in 
distribution list. 

LCBFLAG1 1 Status bits used by the 
I/O supervisor. 

LCBFLAG2 1 Status bits used by the 
I/O supervisor. 

LCBSENSE 2 Sense information stored 
by the I/O supervisor. 

LCBECBPT 4 Not used by QTAM. 

LCBCSW 8 Channel status word. 

LCBSIOCC 1 Start I/O condition code. 

LCBSTART 3 Pointer to the first CCW 
executed in the channel 
program. 

LCBDCBPT 4 Pointer to the DCB. 

LCBRESTR 4 Used by ERP to send error 
messages. Contains termi- 
nal ID and TP Op code. 

LCBINCAM 2 byte 1: 

01 = Tells Poll routine 

the line is trying 
to send. 

02 = Dial line not 

available. 
04 = Polling or 



LCBERRCT 2 

LCBUCBX 1 

LCBPTEMP 1 

LCBTRST 2 



LCBPOLCT 1 

LCBPOLPT 3 

LCBERCCW 8 

LCBCPA variable 

LERACTR 4 

LERACDC 2 

LERACIR 2 

LERACTO 2 

LERTHTR 1 

LERTHDC 1 

LERTHIR 1 

LERTHTO 1 



addressing error. 
08 = Halt I/O issued on 

WTTA line. 
10 = EOT received on 

WTTA line. 
40 = WRU received on 

WTTA line, 
byte 2 = Used by ERP. 

Number of retries. 

Index to the UCB in the 
DEB. 

Temporary storage for mes- 
sage priority. 

Address of EOB character 
relative to the address of 
the last correctly trans- 
mitted segment of current 
message. 

Count of messages received 
from terminal. 

Pointer to currently 
active entry in polling 
list. 

Channel Command Word for 
ERP. 

Channel program area. 

Cumulative counter for 
number of transmissions. 

Cumulative counter for 
number of data checks. 

Cumulative counter for 
number of intervention 
required. 

Cumulative counter for 
number of time-outs. 

Threshold counter for num- 
ber of transmissions. 

Threshold counter for num- 
ber of data checks. 

Threshold counter for num- 
ber of intervention 
required. 

Threshold counter for num- 
ber of time-outs. 
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DATA CONTROL BLOCK 
Typical DSECT : 



r t 

+16 |DCBQFLG JDCBWTEOM 
L X 



QTAM Line Group Interface 

T" 



T 1 

IDCBWTEOT JDCBWTPAD | WTTA Device 
x j interface 



r t 

+2 |DCBBUFRQ| 

| DCBCLPS 

h + T . 

+ 2 4 j DCBINTVL | DCBACLOC j 
J. + x_ 

+2 8 |DCBDEVTP| 

| DCBIOBAD 

^ x 

+3 2 |DCBCPRI | 

| DCBLCBAD 

^ + 

+3 6 |DCBEIOBX| 

| DCBEXLST 

L ± 



DCBDSORG 



-( Common 
Interface 



+ 20 

+ 24 
+ 23 
+ 32 
+ 36 



QTAM Processing Program Message 
Queue Interface 

r t 

DCBBUFRQ | 

DCBTRMAD 
x 



Foundation after OPEN 



t~ 



DCBSOWA | DCBDSORG 

x 

DCBSEGAD 
DCBEODAD 



h 



DCBRECFM| 

DCBEXLST 
X 



r t 

+2 JDCBBUFNOJ 

|. x 

+24 | DCBBUFL 

h X 

+2 8 I DCBIOBAD 

L 



DCBBUFCB 



DCBDSORG 



+ 40 | 



Foundation Before OPEN 
DCBDDNAM 



+ 44 | 

L T T . 

+4 8 |DCBOFLGS|DCBIFLG j 
L X x_ 



.^ 



QTAM Direct Access Message 
Queue Interface 



DCBMACR | 
,_j 



I 
-X- 



DCBMACRF | 
-I 

I 



+40 | DCBTIOT 

h T 

+44 |DCBIFLGS| 

| DCBDEBAD | 

|. X ^ 

+48 |DCBOFLGS] | 

|DCBREAD/]DCBWRITE/ DCBGET/ DCBPUT | 
L X J 



+ 52 



+56 



QTAM Polling List Origin 
DCBKSTAT 




+ 52 | 
+ 56 | 

+ 60 



QTAM Processing Program Message 
Queue Interface 

DCBRECRD 

DCBSYNAD 

DCBEOBLK 
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Contents: 



to calculate the appropri- 
ate Device I/O module. 



Field 



DCBBQFLG 



Bytes 



Description 







DCBIOBAD 


4 


The first IOB address. 


QTAM LINE GROUP 










1 Bit Settinq 


Meaninq 


DCBCPRI 


1 


Communication priority. 


xlxxxxxx 


WRU=YES in 
the DCB macro 
instruction. 






Indicates the relative 
priority to be given to 
sending and receiving 


xxlxxxxx 


IAM=YES in 
the DCB macro 
instruction. | 






operations. 

CPRI= Bit settinqs 


xxxlxxxx 


WRU macro ' 
instruction 
in the Send 
Header sub- 






R xxxxxlxx 
E xxxxxxlx 
S xxxxxxxl 




group of the 


DCBLCBAD 


4 


Line control block 




LPS. 






address. The first LCB 


xxxxlxxx 


WRU macro 
instruction 
in the End 






address minus the length 
of an LCB. 




Send subgroup 


DCBEIOBX 


1 


Extended IOB index; the 




of the LPS. 






size of an LCB. 



DCBWTEOM 



DCBWThOT 



DCBWTPAD 



DCBBUFRQ 



DCBCLPS 



DCBINTVL, 



DCBACLOC 



DCBDSORG 



DCBDEVTP 



Hexadecimal representation DCBEXLST 
of the EOM character. 

Hexadecimal representation 

of the EOT character. 

When EOT=2EOM, this byte DCBBUFRQ 

contains X' 00'. 

Number of padding charac- 
ters when MON=NO is coded 
or omitted in the DCB 
macro instruction. 



The number of buffers to 
be requested for a Read or 
Write operation in advance 
of actual transmission. 

Address of the line proce- 
dure specification for the 
line group. 

The number of seconds of 
intentional delay between 
passes through a polling 
list for nonswitched 
lines. 

The offset, relative to 
zero, of the device access 
field for each terminal 
table entry. 

Data set organization. 



DSQRG= Byte 1 Byte 2 

CX xxOlxxxx reserved DCBRECFM 

Device type pointer. A 
one-byte value calculated 
during OPEN and used in 
the BTAM Read/Write module 



DCBTRMAD 



DCBSOWA 



DCBDSORG 



DCBSEGAD 



DCBEODAD 



4 Address of the exit list. 

QTAM PROCESSING PROGRAM MESSAGE 
QUEUE 

1 Specifies the number of 
buffers to be filled with 
data from the direct 
access queue before they 
are requested by a GET 
macro instruction. Used 
only in process queue DCB. 

4 Address of a user-provided 
area in which the terminal 
name is stored. 

2 The size of the user- 
provided work area. Used 
only in process queue DCB. 

2 Data set organization. 

Byte 1 has MQ=xxxxxlxx. 
Byte 2 is reserved. 

4 Address of current 
segment. 

4 Address of a user provided 
routine to be entered if 
no messages are available 
(the process queue is 
empty) when a GET macro is 
issued. Used only in pro- 
cess queue DCB. 

1 Record 

Format Bit Settinqs 



G 
S 

R 



xxxxxlxx 
xxxxlxxx 
xxxxxxlx 
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DCBEXLST 

DCBBUFNO 
DCBBUFCB 

DCBBUFL 
DCBDSORG 

DCBIOBAD 

DCBDDNAM 



DCBOFLGS 



4 Address of the exit list. 

QTAM DIRECT ACCESS MESSAGE 
QUEUE 

1 Not used. 

3 Address of the terminal 
table, TERMTBL. 

2 Size of the data in the 
buffer equated to 
1ECKBUFL. 

2 Data set organization 

DSORG= Byte 1 Byte 2 
CQ xxxxlxxx reserved 

4 Input/output block 
address. 

FOUNDATION BEFORE OPEN 

8 Data set name as used in 

data definition statement. 
Used by OPEN to locate job 
file control block (JFCB) 
address. 

1 Flags used by OPEN. 



DCBMACR 



DCBIFLG 



Bit setting 
xxxlxxxx 



xxxxxxxl 



Meaning 

OPEN has been 

successfully 

completed. 

This bit is 
set to 1 by a 
I/O support 
function if 
the DCB is to 
be processed 
by that 
function. 



Used by IOS in communicat- 
ing error conditions and 
in determining error 
procedures. 



Bit Setting 



OOxxxxxx 

Olxxxxxx 

llxxxxxx 

xxlOxxxx 

xxOlxxxx 

xxxxOOxx 

xxxxOlxx 
xxxxllxx 

xxxxxxll 



Meaning 



Not in error 
procedure. 

Error correc- 
tion in process 

Permanent error 
condition. 

Channel 9 prin- 
ter carriage. 

Channel 12 prin- 
ter carriage. 

Always use IOS 
error routine. 

Reserved. 

Never use IOS 
error routine. 

Reserved. 



DCBTIOT 



DCBMACRF 

DCBIFLGS 

DCBOFLGS 

DCBDEBAD 

DCBRead 

DCBWrite 

DCBGet 
DCBPut 

DCBKSTAT 



xxxxxxOl Reserved. 
xxxxxxOO Reserved. 

2 Macro instruction 

reference. Specifies the 
major macros and various 
options associated with 
them. Used by OPEN to 
determine the access 
method. 

For line group: 

Byte 1 

INPUT xxlxxxxx 

Byte 2 

OUTPUT xxlxxxxx 

For message queue: 

Byte 1 

GET xlxxxxxx 

Byte 2 

PUT xlxxxxxx 

FOUNDATION AFTER OPEN 

2 Points to the DD entry in 
the task I/O table for 
this DCB. It is the off- 
set of the DD entry rela- 
tive to the beginning of 
the task I/O table. 

2 Same as DCBMACR in founda- 
tion before OPEN. 

1 Same as DCBIFLG in founda- 
tion before OPEN. 

1 Same as DCBOFLGS in foun- 
dation before OPEN. 

4 Address of the associated 
DEB. 

4 Address of the READ 
module. 

4 Address of the WRITE 
module. 

4 Address of the Get module. 

4 Address of the Put module. 



QTAM Polling List Origin 

4 Threshold values for error 
counts : 
+0 Threshold value for 

number of 

transmissions . 
+1 Threshold value for 

number of data 

checks . 
+2 Threshold value for 
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number of interven- 
tion required. 
+3 Threshold value for 

number of time-outs. 



DCBCPOLL 4 Byte 1: 

bits 0-3=Adapter type, 
bit 4=If on, World Trade 

Telegraph Adapter, 
bits 5-6=Reserved. 
bit 7=Internal use 

(Checkpoint/Restart 
routine) . 

Bytes 2-4: Address of the 
polling list for the first 
line in the line group. 

Each line in the line 
group requires 4 bytes for 
its polling list address. 

QTAM PROCESSING PROGRAM MESSAGE 
QUEUE 

DCBRECRD 4 Not used by QTAM. 

DCBSYNAD 4 Address of the user pro- 
vided routine to be 
entered if a work unit is 
longer than the work area 
provided for input. Used 
only in process queue DCB. 

DCBEOBLK 4 Not used in QTAM. 



DATA EXTENT BLOCK 

T ypical Dsect : 

APPENDAGE TABLE 
r 1 

-3b | DEBEOEA | 

F ^ 

-32 | DEBSIOA | 

|. .( 

-2 8 J DEBPCIA I 

|. ^ 

-24 | DEBCEA | 

V ., 

-20 | DEBXCEA | 

L ,. J 

PREFIX 

r T 1 

-16 JDfiBWKARAJ DEBDSCBA j 

h x < 

-12 | | 

h ^ 

- 8 | DEBDCBMK | 

|. ., 

- 4 | DEBLNGTH | 

L . .„_. J 



BASIC 

DEBTCBAD 
DEBDEBAD 
DEBIRBAD 
DEBSYSPG 
DEBUSRPG 
DEBECBAD 
DEBDCBAD 



r T 

| DEBNMSUB | 

I- + 

+ 4 JDEBAMLNG] 

J. 1 

+ 8 JDEBOFLGSJ 

I- + 

+12 JDEBOPATBj 

t- + 

+16 JDEBNMEXTJ 

h 1 

+20 JDEBPRIOR] 

\- + 

+24 JDEBPROTGJ 
|DEBDEBID] 
V + 

+28 JDEBEXSCL] 

|. X 

+32 |DEBUCBAD (4-byte address per device) 

L 



DEBAPPAD 



Contents : 



Field 



DEBEOEA 



DEBSIOA 



DEBPCIA 



DEBCEA 



DEBXCEA 



Bytes Description 

APPENDAGE TAB LE 

4 Address of the End of 

Extent Appendage branched 
to by IOS. 

4 Address of the Start I/O 
Appendage branched to by 

IOS. 

4 Address of Program Con- 
trolled Interrupt Appen- 
dage branched to by IOS. 

4 Address of the Channel End 
Appendage branched to by 
IOS. 

4 Address of the Abnormal 

End Appendage branched to 
by IOS. 





PREFIX 


DEBWKARA 


1 


I/O support work area. 


DEBDSCBA 


7 


DSCB address (BBCCHHR) 
used by I/O support. 


DEBDCBMK 


4 


DCB modification mask 
by I/O support. 


DEBLNGTH 


4 


Length of DEB in 
doublewords. 




BASIC 


DEBNMSUB 


1 


Number of subroutines 
loaded by Open module. 


DEBTCBAD 


3 


Address of the TCB for 
this DEB. 
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DEBAMLNG 


1 


DEBDEBAD 


3 


DEB0FLG3 


1 


DEBIRBAD 


3 


DEBOPATB 


1 


DEBSYSPG 


3 


DEBNMEXT 


1 



DEBUSRPG 



DEBPRIOR 



Number of bytes in access 
method section. 

Address of the next DEB in 
the same task. 

Data set status flags. 

IRB address for error 
exit. 

Indicates file type. 

Address of first I0B in 
system purge chain. 

Number of extents (number 
of lines in the line 
group) . 

Address of first IOB in 
the user purge chain. 

Dispatching priority field 
from TCB, used by IOS for 
channel queuing of IOBs. 



DEBECBAD 



DEBPROTG 



DEBDEBID 



DEBDCBAD 



DEBEXSCL 



DEBAPPAD 



DEBUCBAD 



IOS internal ECB address. 



1/2 Protection tag assigned to 
this task. 



1/2 Hex 'OF' identifies this 
block as a DEB. 



Address of DCB associated 
with this DEB. 



Extent scale: four for 
direct access device and 
two for nondirect access 
device. 



Address of I/O appendage 
table ahead of DEB. 



4(n) Pointer to UCB. n 
ber of devices. 



num- 
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D EB DSECT for a Processing Program : 

PREFIX Process and Destination Queue 



-lb j Work area forj 
j I/O support j 

l~ - L - 

-12 | 



DSCB address (BBCCHHR) used 



- 8 



by I/O support 
DCB modification mask used by I/O support 



4 (Length of DEB| 

L j.- 



BASIC for MS Process Queue 




+ 4 
+ 8 
+12 
+ 16 

+ 20 

+ 24 

+ 28 
+ 32 
+ 36 
+ 40 
+ 44 
+ 48 
+ 52 

+ 56 

+ 60 

+ 64 

+ 68 
+ 72 
+ 76 
+ 80 
+ 84 



h 



h 



Address of TCB 



| Address of next DEB in the same task 



Address of the next available record 
on DASD from queue 



X'OF' iden- 
tify DEB 



I 
I 



Pointer to next DEB on the chain of 
processing program DEBs 



Address of DCB 



Address of DEB + 48 (BRB) 
First word of a dummy LCB 
Dummy last entry in queue (IECKSTOP) 



X"FE'= 
priority 



I 
I 



QPRIRITY subtask 



X'08' 

TIC command 



Address of QCB for DASD Process Queue 



h 



X'07' indi- 
cate dummy 
BRB 



Address of DEB + 32 (LCB) 



I 
_j— 



Size of work area for GET 



Reserved 



HA 

M 
HI 

ll< 
H! 



I QCB 



IV 

HI 



I BRB 



HI 

I I 

II 

HI 

I 

I 

I 

IV 
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+ 4 
+ 8 
+ 12 
+ 16 
+ 20 

+ 24 

+ 28 
+ 32 
+ 36 
+ 40 

+ 44 
+ 48 
+ 52 
+ 56 
+ 60 
+ 64 
+ 68 

+ 72 
+ 76 
+ 80 
+ 84 



BASIC for MS Destination Queue 

r t 



Address of TCB 



_ + 

| Address of next DEB in same Task 

-X 



Pointer to next DEB on the chain of 
processing program DEBs 



X'OF" iden- 
tify DEB 



Address of DCB 



(LCBSTATE) | 
X'18' J 

±_ 



QPRIRITY subtask 



| Address of QCB for destination queue 

_± 



Save Area 



"T T~ 

| Temporary | 

j location for | 

j message j 

j priority j 

-JL -L- 



BRB 
A 



QCB 



V 



LCB 
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DATA EVENT CONTROL BLOCK 

The main storage for the DECB is reserved in the Activate routine. This 
routine also initializes the DECB for use by the BTAM Read/Write routine. 



General Form: 



JLINEDECB Set to zero 



h 



+ i* 



+12 



+16 



+20 



+ 24 



+ 28 



+ 32 



j BTAM opcode for j 
| current segment j 



Length of input area 
for initial read 



Pointer to DCB 



Starting address for data in buffer 



Count of messages | Pointer to currently active entry in polling list 
received I 



| Index to UCB 
j in DEB 



Reserved 



Address of addressing characters in terminal entry 



+3 6 | Reserved 

L 



| Address of the polling list 

-X 



UNIT CONTROL BLOCK 

A unit control block (UCB) is built for each line at system generation time 
and is used by IOS during execution to determine physical locations. The only 
field that QTAM uses is the device-type word (UCBTYP), which gives details of 
the terminals on the line: control unit, adapter, model, and optional fea- 
tures. This word is explained in detail following the UCB figure. 



r 



Internal | Allocation | UCB ID | Status "A" 
Job Number | Channel Mask j j 
T + + x 

Flags (Channel | Unit Address J Flags | Device Table 
| Address | for SIO j j Index 

_ ^ X — l — — — — X - - - i - 


t — — t — 1 — — 
Error Routine | Statistical | Logical Channel | Attention 
Table Index | Table Index j Table Index | Table Index 

Weight | Channel Mask | Unit Name 



12 



16 



h x x 

Device Type 



-I 



20 



|. 



Last 12* Pointer 



L 



"T- 

I 

I 
-X- 



-I 



Sense 



j 
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Field Byte Description 



UCBTYP 



Device type broken down as follows: 



Field 



Bit 



Description 



IOS Flags 



Unassigned 

1 Data chaining (l=yes) 

2 Burst/byte (l=burst) 

3 May overrun (l=yes) 



Model 



4-7 If Adapter Type 
(Bits 24-27) 

Equals 

1 
1 
1 
2 
3 
4 
4 
5 
8 



Model Code 
Equals 
1 
2 
4 
1 
1 
1 
2 
1 
1 



Then Model 
Is 

1050 
1060 
2740 
1030 
1050 
8 3B3 
115A 
TWX 
2260 



Optional 
Features 



8 

9 

10 

11 

12 

13 

14-15 



Automatic 

Automatic 

Checking 

Automatic 

SCONTROL 

XCONTROL 

SADZER 

SADONE 

SADTWO 

SADTHREE 



Calling 
Polling 

Answering 



(hex value 0) 

(hex value 1) 

(hex value 2) 

(hex value 3) 



Device Class 



16 Tape 

17 Comirunication equipment 

18 Direct access, 

19 Display 

2 Unit record 

21 Character reader 

22 Spare 

23 Spare 



Adapter Type 



24-27 Type of Adapter 

IBM Terminal Adapter, Type I 
IBM Terminal Adapter, Type II 
IBM Telegraph Adapter 
Telegraph Adapter , Type I 
Telegraph Adapter, Type II 
World Trade Telegraph Adapter 
Synchronous Adapter, Type I 
IBM Terminal Adapter, Type III 



(hex 


value 


1) 


(hex 


value 


2) 


(hex 


value 


3) 


(hex 


value 


4) 


(hex 


value 


5) 


(hex 


value 


6) 


(hex 


value 


7) 


(hex 


value 


8) 



Control Unit 



28-31 Type of Control Unit 
2702 (hex value 1) 
2701 (hex value 2) 
270 3 (hex value 3) 
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TERMINAL TABLE 

The terminal consists of a table of information about each terminal as 
specified through the TERMTBL, LIST, PROCESS, TERM,, and OPTION macros. 



Entry Type 

Single 
Terminal 



Group 
Code 



Distribution 
List 



Process 
Program 



1 2 3 



TNTRYSZE 



TQCBADDR 



TSEQUIN 



TSEQOUT 



TSTATUS 



- 243 Bytes Maximum - 



••-8 Bytes Maximum -» 
ff 



TERMID 
it 



Offset 



— if— 
User 

Area 

K- 



U 

Direct Access 

Area 
H 



TNTRYSZE TQCBADDR 




TSEQOUT 


TSTATUS 


1 it 

TERMID 
it 


Offset 


1 " 1 

User 

Area 
LJ_jj 1 


Direct Access 

Area 

i jj 1 



TNTRYSZE 


TDSTRQCB 




TLISTKEY 




TSTATUS 


I H 1 

TERMID 

it ' 


* 


reladdr , 


r— ih~ 


reladdr n 



TNTRYSZE 


TQCBADDR 




TSEQOUT 


TSTATUS 


w 

TERMID 
it 



Terminal List Portion 



" Unused Field of One Byte 



Contents: 

Field Bytes 

TNTRYSZE 1 

TQCBADDR 3 



(TDSTRQCB 
for dist. 
list) 

TSEQUIN 



Offset 



TSEQOUT 



TLISTKEY 



(distriDution 
list only) 

TSTATUS 1 



Description 

Entry size. 

Address of the destination 
QCB for the queue of out- 
going messages. 



Sequence number for incom- 
ing messages. Used only 
in single-terminal 
entries. 

Sequence number for outgo- 
ing messages, except for 
distribution list. 

Starting address of the 
terminal list portion of 
this entry. 



User 
Area 



variable 



Device variable 

Access 

Area 



bit 








0-3 


not used 






4 


interval stop bit 






5 


"intercept" bit 






6 


"send" bit 






7 


"receive" bit (single 


Reladdr 


vari- 




terminal only) 




able 



TERMID 



1 to 



Name of the terminal that 
this entry represents. 



Dial terminal : offset 
from beginning of entry to 
code for number of dial 
digits. 

Nondial terminal : offset 
from beginning of entry to 
direct access field 
(single-terminal and group 
code only) . 



Subfields as defined by 
the user in OPTIOJJ and 
TERM macro instructions 
(Single-terminal and group 
code only) . 

Nonswitched : polling and 
addressing characters. 
Switched : number of dial 
digits, dial digits, and 
addressing characters. 
TWX: number of dial 
digits, dial digits, num- 
ber of ID characters, ID 
characters, and same num- 
ber of reserved bytes 
(single and group code 
only) . 

WTTA : number of ID chara- 
cters, and same number of 
reserved bytes. 

Address of a single 
terminal entry relative to 
the address of the termin- 
al table (distribution 
list only) . 
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BUFFER PREFIX 



First 8 bytes are not placed 
on direct access queue 



1 



8 9 10 



Relative offset of entry from the first entry in the terminal table 

11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 



QCB 
Address 
FQUEUE 



r 

Key FKEY 



Link 

Address 

MSQLINK 



Source 

Key 
TTSKEY 



Segment 

Size 
MSEGSZE 



31 



Message 

Address 

on DASD 

MSLCB 



Next 
Segment 

Link 
MSLINK 



MSTATUS* 
Stored Scan Pointer MSPTR 
Set to the last character of 
last processed field in header 



Previous 

Header 

Link 

MSHEAD 



Next 

Header 

Link 

MSDLINK 



27 28 29 30 31 



Destin- 
ation 
Key 

TTDKEY 



J 



Buffer 

Scheduler 

Priority 

MSPRI 



Message Sequence Number (IN) MSNUMI 

Message Sequence Number (OUT) MSNUMOUT— ' 



mum mm% 


HEADER 
HDSTRT 


TEXT (Optional) 



Format of Buffer containing Header 
First 8 bytes are not placed 
on direct access queue 

1 2 3 4 5 6 7 



8 9 10 11 12 13 14 15 16 17 18 19 20 21 



QCB 
Address 
FQUEUE 



Key FKEY 



Link 

Address 

MSQLINK 



Buffer 

Scheduler 

Priority 

MSPRI 



Source 

Key 
TTSKEY 



Message 

Address 

on DASD 

MSLCB 



Next 
Segment 

Link 
MSLINK 



Message 
Header 

Link 
MSHEAD 




TDcmirm 



TXSTRT 



TEXT 



Format of Buffer containing Text 
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Contents 



| Field 



| Description 



(Initialized by: 



y + + 



FKEY |The ECB key when the buffer appears on the ready ] Assembler 

| queue; always zero. ] 
+ + 

FQUEUE |A pointer to the QCB for the queue to which the buffer | Post or Put 
| has been posted. This field is meaningful only when j 
|the buffer is on the ready queue. | 
i _ __ _ jl_ _ _ _ _ _ 


t ~T 
MSPRI (The priority of the buffer. This field |Cleanup f Free BRB, 

[determines the relative position of the buffer ] Interim LPS / or 

|when it is linked into the ready queue or the element j Disk End Appendage 

| chain of a QCB. j 
+ + 

MSQLINK |A pointer to the next item in the chain in which the (Numerous routines 
jouffer appears. j 

| j Appendage, Put 
+ + 

TTSKEY | Relative address in terminal table of entry for | Source, Interim LPS, 

(source terminal. ] Line Appendage 
+ + 

MSTATUS | Used to indicate the status of the message segment | 
(contained in the buffer. The significance of the bitsj 

| Bit 0: If l f do not send or process message. | Cancel Message 

| Bit 1: If 1, duplicate copy of header. I Recall 

| Bit 2: If 1, an SOB character is present in some | Line Appendaqe 

| position in the buffer other than the last. | 

j Bit 3: If l f the message was previously serviced or j Disk End Appendaqe 

|sent. | 

|Bit 4: Not used. I 

|Bit 5: If 1, this message was sent with priority. ] Disk End Appendaqe 

|Bit 6-7 1 
| 00 = header segment (not last segment) (Activate, Line 
(01 = text segment (not last segment) [Appendage, LPS 
j 10 = header segment (last segment) j Control, Put 
| 11 = text segment (last segment) j 

(the buffer is assigned. j 

| When on the disk, the relative record number of the j DASD Destination 

j segment. j 



L JL J. J 

(Continued) 
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Contents ( Continued) 



| Field (Description 



j | Initialized by: 



h + 4 ^ 



MSLINK | Relative record number of the next segment in this | DASD Destination 
j message. ) 
4. - -I 


T T 

MSHEAD | For a header segment, the relative record number of ] DASD Destination 

j the previous header segment in this queue. For a textj 

| segment, the relative record number of the header seg- j 

jment of this message. j 
4 + 

TXSTRT | Start of message data for a text segment. The remain-] 
| ing fields in the prefix apply only to a header j 
| segment. | 

+ + 

MSDLINK | The relative record number of the next header segment ] DASD Destination 
j in this queue. j 
± - - J. 


T T 

MSPTR (Stored scan pointer; indicates the relative | Activate, Put, Cleanup 
| position within the buffer where scanning is to begin j EOB„ or EOBLC 
(resume. j 
X - - — 4- - - 


t T 

TTDKFY | Relative address in terminal table of entry for | Lookup or Put 
(destination terminal. | 
X - 4- - 


t T 

MSNUMIN |Sequence-in number assigned to message. (Sequence Number In 
+ + 

MSNUMOUT| Sequence-out number assigned to message. (Disk End Appendage 

+ 4 

HDSTRT (Start of message data for header segment. j 



l ± JL J 

Buffer Prefix formats 



SPECIAL CONTROL BLOCK FORMS 



QUEUE CONTROL BLOCK 

The pattern of unused bytes in the QCB 
and the truncated STCB is such that they 
are capable of Deing combined to conserve 
storage, as may be seen from the following 
general forms: 



r T 1 

] key ] element chain pointer | 
F 4 .( 

] QCB priority] QCB (ready crueue) link addr| 

L 4 : 1 

| return code ] *STCB chain pointer | 



1- 



H 



]STCB priority] STCB (STCB chain) link addr| 
l _ JL J 

♦Address of this field minus 1 



Queue Control Block 

t 1 

key | element chain pointer | 



priority j 
+- 



link address 



STCB chain pointer 



I 



BUFFER REQUEST BLOCK 

The buffer request block (BRB) is basic- 
ally a resource element control block, with 
the element control block characteristics 
outlined in the preceding section. The 
BRB, however, takes several different forms 
during its processing cycle. These forms 
are illustrated in Figures 8 through 12 and 
are described below. 



Subtask Control Block 



r t- 

| return code | 



| priority | 

L _L_ 



link address 



The general form of these control blocks 
when combined is: 



Figure 26 ill 
ly used to refer 
first two fullwo 
are typical for 
Of the alternate 
third fullword, 
when the DSECT a 
fourth fullword 
standard for thi 



ustrates the DSECT typical- 
to fields of the BRB. The 
rds (FKEY through FLINK) 
all element control blocks. 

labels available for the 
MSTIC is most commonly used 
pplies to a BRB. The 
(MSTATUS and MSLCB) is 
S DSECT. 
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Figure 27 illustrates the significant 
fields of the BRB when it is in the element 
control block chain of the inactive BRB 
queue control block. This is also the form 
in whicn the BRB is generated on expansion 
of the BUFFER macro instruction. 



The BRB-Ring routine removes BRBs from 
the inactive BRB queue and forms the BRB 
ring. Figure 2 8 is a representation of a 
BRB after it has been processed by the BRB 
Ring routine. The contents of each field 
are as follows: 



Figure 30 represents a buffer request 
block that has been converted to a CCW 
(BRB/CCW). A BRB/CCW is fully initialized 
for a write to or read from direct access 
storage. The first two fullwords have been 
converted to a standard channel command 
word* and are followed (in the third full- 
word) by the previously initialized 
transf er-in-channel command. (Note that a 
complete BRB/CCW cannct be enqueued by the 
standard QTAM conventions because the queu- 
ing information fields are occupied by the 
channel command word. The BRB ring is 
formed by the TIC addresses of the 
BRB/CCWs . ) 



key : always zero. The BRB is still an 
element, and the key of all elements is 
zero. 



QCB address : 
in a ring, thi 
of the active 
is to be used 
the address of 
is to be used 
the remaining 
tents of this 



variaole. For the first BRB 
s field contains the address 
buffer request QCB if the BRB 
for a Receive operation, or 

the disk I/O QCB if the BRB 
for a Send operation. For 
BRBs in the ring , the con- 
field are not significant. 



priority : The first BRB in a ring to be 
used for a receive operation has a priority 
of 12. The contents of this field is nor- 
mally zero for all other BRBs. 

MSTIC: This fullword contains a transfer - 
in-channel (TIC) command. The first byte 
contains the TIC command code (08) , and the 
remaining three bytes contain the address 
of the next BRB in the ring. For the first 
BRB in the ring only, the TIC address 
points to the actual address of the next 
BRB, which begins at a doubleword boundary. 
For all other BRBs in the ring, the last 
two bits of the TIC address are set to one. 
This configuration represents the BRB 
address (always on a doubleword boundary) 
plus the BRB idle flag (see BRB Status 
Codes) . 



MSTATUS : 



zero. A zero value for this 



field indicates that no next segment 
address has been assigned to this BRB. 

LCB address : the address of the line con- 
trol block for the line over which the Send 
or Receive operation is to be conducted. 

The Disk I/O Appendage further initial- 
izes the BRB when the BRB is to be used for 
a Read from direct access storage. The 
appendage replaces the LCB address in the 
fourth fullword of the BRB with the rela- 
tive record number for the message segment 
with which this BRB is now associated. The 
assigning of the next segment address is 
indicated oy changing the value of MSTATUS 
to 9. Figure 29 illustrates this 
configuration. 



In the BRB/CCW, as in any other form of 
the BRB except that appropriate to the 
inactive BRB queue, the fourth fullword may 
contain either MSTATUS=0 and an LCB 
address „ or MSTATUS=9 and a next segment 
relative record number. The next segment 
address is inserted in the BRB when the 
Disk I/O Appendage is processing another 
BRB in the ring. The BRB in which the next 
segment address is placed is selected 
according to its position in the ring, 
without reference to the queue (if any) 
upon which it appears. 



r t 1 

j FKEY J FQUEUE | 

J. X 1 

] FPRI j FLINK | 

j. x < 

j MSTIC | 

1 T ) 

j MSTATUS | MSLCB | 

L X J 

Figure 26. Typical DSECT for BRB 



r t 1 

| key ] QCB address | 
j. x 1 

] priority ] link address | 

j. + ^ 

i i i 

j. + 1 

i i i 

L i J 

Figure 27. BRB on Inactive-BRB Queue 

r t 1 

] key ] QCB address | 

j. + .| 

] priority ] link address | 
i x 1 

]TIC comm code] address of next BRB in ring | 
j. x < 

] MSTATUS (0) ] LCB address | 

L X J 

Figure 28. BRB Assignment of Next Segment 
Address 
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key 



QCB address 



priority 



link address 



| TIC comm code | address of next BRB in ring 



|MSTATUJ (9) [relative record number 
I I for next segment 

L X 

Figure 29. BRB After Assignment of Next 
Segment Address 



r t 1 

| command code | data address | 

,. + ., 

| flags | data count | 
h + 1 

| TIC comm code | address of next BRB in ring | 
|. + i 

| MSTATUS | MSLCB | 

L ± J 

Figure 30. BRB/CCW Initialized for Direct 
Access Read or Write 

BRB Status Codes 

The status of a BRB at any point in time 
is indicated by a code in the two low-order 



bits of MSTIC+3 (the fourth byte of the 
third fullword of the BRB. ) The codes used 
are: 



00 - Buffer is allocated. This code, which 
never appears in the BRB used to send 
or to receive the last segment of a 
message, makes valid the address por- 
tion of a CCW containing a TIC com- 
mand. (Refer to the discussion of the 
Line End Appendage for additional 
information on the invalid TIC 
address. ) 



01 - Buffer is in LPS queue (if receiving) , 
or BRB is in disk I/O queue (if send- 
ing) . This code appears in the BRB 
used for the last segment of a 
message. 

10 - BRB is in active buffer request queue. 

11 - BRB is idle. This code is set, typic- 

ally, when a buffer has been allocated 
to the BRB but could not be used 
because the preceding segment had not 
yet been read when this BRB was 
selected. 



INSERT BLOCK 

The insert block is inserted into the chain of BRBs . The chain of 
insert blocks contains a special purpose BRB used to schedule and to 
contain channel commands for the transmission of idle characters. 



Form: 



+ 



+ 4 



+ 12 



+ 16 



T ^ 

write | Address of the next character after the previous 
command code | special character or addr. of beginning of the buffer 



H 



flags 



byte count 



write 
command code 



Address of the Idles 



flags 



byte count 



TIC 
command code 



Address of the next Insert Block 
or original BRB 



-20 I 



Address of queue for Insert Blocks 



RESOURCE ELEMENT CONTROL BLOCK (IECKSTOP) 

The IECKSTOP resource element control 
block is used as a dummy last element on 
the element chain of several queues, and is 
permanently the last item on the ready 
queue- Its sole purpose is to signal the 
end of a chain; it is never altered or used 
as an available element. 



For m: 

r t 1 

WAITRB ]key = ]QCB address = QATTACH | 
1. + 1 

] priority = (link address = WAITRB | 
] 255 | | 

L _L J 
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APPENDIX C: QTAM LINKAGES 



Figure 31 depicts the linkages between the 
macro expansions and the modules they call, 
for eacn of the LPS, system status modify- 
ing, GET, and PUT macro instructions, with 
the exception of five of the LPS delimiter 
macro instructions. These five branch 
directly to the QTAM Implementation module, 
rather than to macro-called modules. 



is a branch. 



SVCxx 



is an SVC. 



The entry point of each module is the 
same as the module name except where it is 
shown in parentheses below the module name. 
Types of linkages are as follows: 



is a branch and link. 
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Macro Instruction 



BREAKOFF 



CANCELM 



CHNGP 



CHNGT 



CKREQ 



CLOSEMC 



COPYT 



COPYP 



COPYQ 



DATESTMP 



Modules 



QTAM Control Module 



IECKBKRF 



+• IECKCNCL 



IECKDCBL 



IECKCHPL 



SV067__ IECKQQ01 

^ IGC067 



*- IECKCHGT 



SVC 67 



IECKCKRQ \ - 



SVC67 



IECKQQ01 
IGC067 



+- IECKCLOS ^73 



IECKLNCH 



SVC 67 



*- IECKCPYT 



*- IECKDCBL 



*- IECKCPYQ 



IECKDATE 



L, 



il~ ^ IECKQQ01 

IGC067 



_n 



SVC 67 



*- IECKCPPL 



*- IECKEXPD 



QTAM Implementation 
Module 



IGG019NG 
(QMOVER +6) 



IGG019NG 
(QMOVER +6) 



DIRECT 



ENDRCV 



ENDREADY 



ENDSEND 



EOA 



IECKLKUP 
IECKDRCT 




IECKTYPE 




** IECKEOAD 



IECKSCAN 



IECKROUT 



IECKLKUP 



IGG019NG 
(IECKPR) 

(IECKSU) 

(IECKACT) 



EOB 



EOBLC 



ERRMSG 







IECKEOBK 




IGGQ19NG 
(IECKACT) 

(IECKRC) 

(IECKRC) 


* 


* 














IECKEOBC 


* 


* 












w 


IECKERMG 


* 




^ 




IECKLKUP 



Figure 31- QTAM Linkages (Part I of 1) 
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Macro Instruction 



Modules 



GET Message 

GET Record 

GET Segment 

INTERCPT 
LOGSEG 

LPSTART 



MODE 
Priority 



MODE Initiate 



MODE 
Converse 



MSGTYPE 

OPCTL 

PAUSE 
POLLIMIT 



QTAM Control Module QTAM Implementation 
Module 



IGG019NB 



IGG019NC 



< 



IGG019NA <f 



SVC65_ 
SVC 67 
SVC65_ 

SVC 67. 

SVC 65 

SVC 67 



IECKQQ01 

(IGC065) 

(IGC067) 

(IGC065) 

(IGC067) 

(IGC065) 

(IGC067) 



IECKITCP 



IECKONLT 



-►fQSAM PUT Routine J 
SVC 77 




IGC0007G 
IGC0107G 
IGC0207G 
IGC0307G 
IGC0407G 
IGC0507G 
IGC0607G 



| _SVCj>7 



IECKSCAN 



IECKOCTL 



IECKSCAN 
IECKLNCH 
IECKDRCT 



IECKPAUS 



SVC 67 



SVC 65 



IECKPLMT 



IGG019NG 
(IECKRC) 



IGG019NG 
(ENDINSRT) 
IECKSU) 



IECKQQ01 
IGC067 



IECKQQ01 
IGC065 



Figure 31. QTAM Linkages (Part 2 of 4) 
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Macro Instruction 



Modules 



nT . y r , i kA i i QTAM Implementation 

QTAM Control Module r 

Module 

























IGG019NG 
(lECKPR OR 
lECKOPAW) 
(lECKACT) 
(lECKPR OR 
lECKOPAW) 


PUjIKLv 

( . 












POST SEND <^ 












I ■ — ■ 




SVC 65 
















IECKQQ01 

(IGC065) 

(IGC067) 

(IGC065) 

(IGC067) 

(IGC065) 

(IGC067) 










IGG019NE 


*>^ 




PUI Mebi>aye 












\ 

\ 
\ 
\ 


SVC 67 
SVC 65 
SVC 67 








IGG019NF 


•' 

\ 




PU 1 Kecoiu 














SVC 65 
SVC 67 








IGG019ND 






PU 1 jeymenl 












> 




RCVHDR* 
RCVSEG* 


















IGG019NG 
(QMOVER+6) 

(IECKRC) 




IECKRELM 






















i « 


IECKRRTE 


^ 




- *• 




>»< 












REROUTE { 






IECKLKUP 








1 * 
















SVC 65 


IECKQQ01 
(IGC065) 

(IGC067) 








SVC 67 






IECKRETD 
















—♦•I 




















pr-rni rw r / c \ ^ 


IECKRETS 


IECKRETD 






















f 


IECKROUT 




IECKSCAN 






1 


^s^ ^ 




ROUTE < 














I < 




IECKLKUP 






I ' 











SENDHDR* 

SENDSEG* 

*This macro instruction genterates no code or generates only in-line code; there is no module linkage. 

Figure 31. QTAM Linkages (Part 3 of 4) 
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Macro Instrouction 



Modules 



QTAM Control Module ° T ^ Implementation 

Module 







IECKSEQN 




IECKSCAN 


SVC 65 

m. — — — m. _». 

\ 
\ 

\ * 

SVC 67 
























IECKSEQT 


_ 


IECKEXPD 




5EQOUT * '""■ 




1 














SKIP to 


IECKSKPS 




IECKSCAN 




Character Set 


















IECKSKPC 






jKII on Luunl * 










t r 






cai in^r - 


IECKSRCE 


IECKSCAN 






> 














STOPLN -* ■ 


IECKQQ01 

(IGC065) 

(IGC067) 




IECKDCBL 




IECKLNCH 




1 


STARTLN ^ ' 














IECKTIME 


_ 


IECKEXPD 






















T f? A M C t 


IECKTRANS 













* This macro instruction generates no code or generates only in - line code; there is no linkage. 
Figure 31. QTAM Linkages (Part 4 of 4) 
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APPENDIX D: LIST OF QTAM MODULES 



This appendix identifies the modules that 
comprise QTAM, Two lists are provided. 
The first list presents each module name 
included in QTAM, with a brief description 
of the nature of the module. For those 
modules that represent macro instruction 
implementing routines, the mnemonic opera- 
tion code for the macro instruction is 
included in the description (e.g., 
DATESTMP) . 

The second list provides a more con- 
venient cross-reference for identifying the 
routines (as modules) that implement a 
given macro instruction. This list 
includes all macro instructions, but does 
not include modules that are not specific- 
ally related to one or more macro instruc- 
tions. The notation (-none-) in the Module 
column means that the macro instruction's 
function is fulfilled at assembly time, 
usually through the macro expansion. Macro 
instructions are grouped alphabetically 
within categories. 

All Open, Close, Get, and Put modules 
are part of the supervisor call library 
(SVCLIB) ; the QTAM Implementation module, 
IGG019NG, is also part of SVCLIB. The QTAM 
control module, IECKQQ01, is resident in 
the supervisor nucleus. (Entry points for 
the two QTAM SVCs are IGC065 and IGC067.) 
All other QTAM modules are contained in the 
library identified as SYS1.TELCMLIB. 



ALPHABETICAL LIST OF QTAM MODULES 
SYS1.TELCMLIB 

IECKBRKF Halt Receive (BREAKOFF) 

routine. 
IECKCHGT Change Terminal Table (CHNGT) 

routine. 
IECKCHPL Change Polling List (CHNGP) 

routine. 
IECKCKRQ Check Request (CKREQ) routine 
IECKCLOS Close Telecommunications Sys- 
tem (CLOSEMC) routine. 
IECKCNCL Cancel Message (CANCELM) 

routine. 
IECKCPPL Copy Polling List (COPYP) 

routine. 
IECKCPYQ Copy Queue Status (COPYQ) 

routine. 
IECKCPYT Copy Terminal Table (COPYT) 

routine. 
IECKCVRS Conversational Mode (MODE) 

routine; used with IECKMODE 

and IECKSCAN. 
IECKDATE Datestamp (DATESTMP) routine; 

requires IECKEXPD. 



IECKDCBL Data Control Block Locate 
routine. 

IECKDLQT Distribution List (DLIST) 
routine. 

IECKEOAD End of Address (EOA) routine. 

IECKEOBC End of Block and Line Correc- 
tion (EOBLC) routine. 

IECKEOBK End of Block (EOB) routine. 

IECKERMG Error Message (ERRMSG) rou- 
tine, requires IECKLKUP. 

IECKEXPD Expand routine; a second- level 
routine that provides the 
number of * spaces and the mes- 
sage header required for in- 
sertion of timestamp or date- 
stamp characters, or for 
sequence-out numbers. 

IECKITCP Intercept (INTERCPT) routine. 

IECKLKUP Lookup routine; a second- level 
routine that locates the ter- 
minal table entry for a speci- 
fied destination. 

IECKLNCH Line Change Routine (STARTLN, 
STOPLN) . 

IECKMODE Message Mode (MODE) routine; 
requires IECKSCAN and one of 
the following: IECKCVRS, 
IECKNATE, IECKPRTY, or a user- 
written subroutine. 

IECKNATE Initiate mode (MODE) routine; 
used with IECKMODE and 
IECKSCAN. 

IECKOCTL Operator Control (OPCTL) rou- 
tine, requires IECKSCAN, 
IECKLNCH, and IECKDRCT. 

IECKONTL On- Line Terminal Test routine. 

IECKOPAW Operator Awareness routine. 

IECKPAUS Pause (PAUSE) routine. 

IECKPLMT Polling Limit (POLLIMIT) 
routine. 

IECKPRTY Priority Mode (MODE) routine; 
used with IECKMODE and 
IECKSCAN. 

IECKRELM Release Intercept (RELEASEM) 
routine. 

IECKRETD Retrieve DASD (RETRIEVE) rou- 
tine (by relative track 
number) . 

IECKRETS Retrieve (RETRIEVE) routine 
(by sequence number). 

IECKRF40 Translate Table RCAP2740; 2740 
to monocase EBCDIC. 

IECKRF50 Translate Table RCAP1050; 1050 
to monocase EBCDIC. 

IECKROUT Routing (ROUTE) routine; 
requires IECKSCAN and 
IECKLKUP. 

IECKRRTE Reroute (REROUTE) routine. 

IECKRV30 Translate Table RCVE1030; 1030 
to EBCDIC. 

IECKRV40 Translate Table RCVE2740; 2740 
to EBCDIC. 
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IECKRV50 Translate Table RCVE1050; 10 50 

to EBCDIC. 
IECKRV60 Translate Table RCVE1060; 1060 

to EBCDIC. 
IECKR260 Translate Table RCVE2260; 2260 

to EBCDIC. 
IECKRVT1 Translate Table RCVET1; 5- 

level Eaudot to EBCDIC. 
IECKRVT2 Translate Table RCVET2; TWX 

code to EBCDIC. 
IECKRVTW WTTA Translate table RCVEITA2; 

ITA2 code to EBCDIC. 
IECKRVTZ WTOA Translate table RCVEZSC3; 

ZSC3 code to EBCDIC. 
IECKSCAN Scan Header routine; a second 

level routine that steps 

through a header segment, 

maintaining a pointer to the 

portion of the segment to be 

operated upon by the next LPS 

routine. 
IECKSD30 Translate Table SEND1030; 

EBCDIC to 1030. 
IECKSD40 Translate Table SEND2 74 0; 

EBCDIC to 2740. 
IECKSD50 Translate Table SEND1050; 

EBCDIC to 1050. 
IECKSD60 Translate Table SEND1060; 

EBCDIC to 1060. 
IECKS260 Translate Table SEND2260; 

EBCDIC to 2260. 
IECKSDT1 Translate Table SENDT1; EBCDIC 

to 5 -level Baudot code. 
IECKSDT2 Translate Table SENDT2; EBCDIC 

to TWX code. 
IECKSDT3 Translate Table SENDT3; EBCDIC 

to TWX code with parity bit 

on. 
IECKSDTW WTTA Translate Table SENDITA2; 

EBCDIC CODE TO ITA2 code. 
IECKSDTZ WTTA Translate Table SENDZSC3; 

EBCDIC CODE TO ZSC3 code. 
IECKSEQN Sequence- in (SEQIN) routine; 

requires IECKSCAN. 
IECKSEQT Sequence-out (SEQOUT) routine; 

requires IECKEXPD . 
IECKSKPC Skip on Count (SKIP) routine. 
IECKSKPS Skip to Character Set (SKIP) 

routine; requires IECKSCAN. 
IECKSRCE Source (SOURCE) routine; 

requires IECKSCAN. 
IECKTIME Timestamp (TIMESTMP) routine; 

requires IECKEXPD. 
IECKTRN8 Translate (TRANS) routine; 
x used in conjunction with a 

QTAM or user-provided 

translations. 
IECKTYPE Message Type (MSGTYPE) rou- 
tine; requires IECKSCAN. 

SYS1.SVC Library 

IGC0007G Terminal Test Header Analysis 

routine. 
IGC0107G 1030 Terminal Test routine. 
IGC0207G 1050 Terminal Test routine. 
IGC0307G 1060 Terminal Test routine. 
IGC0407G 2740 Terminal Test routine. 



IGC0507G 2848/2260 Terminal Test 

routine. 
IGC0607G 2848/2260 Terminal Test 

routine. 
IGE0004E Time-Out and Data Check for 

Auto Poll routine. 
IGE0104E Data Check routine. 
IGE0204E Time-Out routine. 
IGE0304R Intervention Required routine. 
IGE0404E Lost Data routine. 
IGE0504E Error Post routine. 
IGE06 04E Bus-Out and Overrun routine. 
IGE0704E Link routine. 
IGE0804E Status Check routine. 
IGE0904E Command Reject, Equipment 

Check, SNO Error, SIO CC 1 

routine. 
IGE0004F Read Skip, Break Return 

routine. 
IGE0104F Diagnostic Write/Read routine. 
IGE0204F Line Error Recording routine. 
IGE0304F Operator Control and LER Addi- 
tion routine. 
IGE0404F Special OPEN and Checkpoint 

Restart routine. 
IGE0504F Not Operational SIO routine. 
IGE0604F 3us-0ut and Overrun for Auto 

Poll routine. 
IGE0704F Overrun routine. 
IGG0193N Open Communications Line Group 

(load 1) (OPEN) . 
IGG0193O Open Direct Access Message 

Queue (OPEN). 
IGG0193P Open Process Queue (OPEN). 
IGG0193R Open Communications Line Group 

(load 2) (OPEN) . 
IGG019 3T Open Communications Line Group 

(load 3) (OPEN) . 
IGG0193U Open Direct Access Message 

Queue (load 2) (OPEN). 
IGG0193V Open Checkpoint/Restart. 
IGG0194A Open Communications Line Group 

(load 4) (OPEN). 
IGG019NA Get Message Segment (GET) 

routine. 
IGG019NB Get Message (GET) routine. 
IGG019NC Get Record (GET) routine. 
IGG019ND Put Message Segment (PUT) 

routine. 
IGG019NE Put Message (PUT) routine. 
IGG019NF Put Record (PUT) routine. 
IGG019NG QTAM Implementation Module. 
IGG019NH Checkpoint/Restart routine. 
IGG019NJ IBM 2740 (Basic) Device I/O 

Module. 
IGG019NK IBM 2740 with Dial Device I/O 

Modul e . 
IGG019NL IBM 2740 with Transmit Control 

and Checking Device I/O 

Module. 
IGG019NM IBM 2740 with Dial and Trans- 
mit Control Device I/O Module. 
IGG019NN IBM 2740 with Dial and Check- 
ing Device I/O Module. 
IGG019NO IBM 2740 with Station Control 

and Checking Device I/O 

Modul e . 
IGG019NP IBM 2740 with Station Control 
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Device I/O Module. 
IGG019NQ IBM 2740 with Checking Device 

I/O Module. 
IGG019NR IBM 22b0 Device I/O Module. 
IGG0 203^ Close Communications Line 

Group (CLOSE) . 
IGG0203O Close Direct Access Message 

Queue (CLOSE) . 
IGG0203P Close Process Queue (CLOSE). 
IGG019NS TWX Device I/O Module. 
IGG019NT WU 115A Device I/O Module. 
IGG019NU AT&T 83B3 Device I/O Module. 
IGG019NV IBM 1030 Device I/O Module. 
IGG019NW IBM lObO Device I/O Module. 
IGG019NX IBM 1050 (Switched) Device I/O 

Module. 
IGG019NY IBM 1050 (Nonswitched) Device 

I/O Module. 
IGG019NZ Read/Write Routines. 
IGG019N1 IBM 1050 (nonswitched) for 

Auto Poll. 
IGG019N2 IBM lObO for Auto Poll. 
IGG019N3 IBM 1030 for Auto Poll. 
IGG019N8 IBM 2740 with Station Control 

and Checking for Auto Poll. 
IGG019N9 IBM 27 40 with Station Control 

for Auto Poll . 
IGG019QA WTTA Device I/O Module. 
IGG019QB WTTA Line Appendage Module. 

QTAM DSECTs in SYSl.MACLIB 



CTLPROGD 

DCBD 
IECDSECT 

IECTDEBX 
IECTDECB 

IECTIOBX 
IECKQIOB 
LCBD 
PREFIXD 

QCBD 
STCBD 

TCBD 
TERMTBLD 



DSECT for 
IECKQQ01. 
DSECT for 
DSECT for 
Area. 
DSECT for 
DSECT for 
Block. 
DSECT for 
DSECT for 
DSECT for 
DSECT for 
Prefixes. 
DSECT for 
DSECT for 
Block. 
DSECT for 
DSECT for 



QTAM Control Module 

Data Control Blocks. 
System OPEN Work 

Data Extent Block. 
Data Event Control 

Input/Output Block. 
Input/Output Block. 
Line Control Block. 
Header 6 Text 

Queue Control Block. 
Full Subtask Control 

Task Control Block. 
Terminal Table. 



LIST OF MODULES BY MACRO INSTRUCTION 
CATEGORY 

SUPPORT MACRO INSTRUCTIONS 

Macro instruction Module 



CLOSEMC Telecommuni- 
cations System 

CLOSE Communications 
Line Group 

CLOSE Direct Access 
Message queue 

CLOSE Process queue 
(input) 



IECKCLOS, IECKLNCH 
IGG0203N 
IGG0203O 
IGG0203P 



CLOSE Process queue 

(output) 
GET message 
GET record 
GET message segment 
OPEN communications 

line group 



OPEN direct access 
message queue 

OPEN Checkpoint/Restart 
OPEN process queue 

(input and output) 
PUT message 
PUT record 
PUT message segment 



IGG0203P 

IGG019NB 
IGG019NC 
IGG019NA 
IGG0193N (loadl) 
IGG0193R (load2) 
IGG0193T (load3) 
IGG0194A (load4) 
IGG0193O 

IGG019NU (load2) 

IGG019NV 

IGG0193P 

IGG019NE 
IGG019NF 
IGG019ND 



MESSAGE CONTROL MACRO INSTRUCTIONS 



Macro Instruction 

Initialization 

ENDREADY 

Control Information 

BUFFER 

DLIST 

OPTION 

POLL 

PROCESS 

TERM 

TERMTBL 



Module 



-none- 
IECKDLQT 
-none- 
-none- 

-none- 
-none- 
-none- 



Line Procedure Specification 



BREAKOFF 

CANCELM 

COUNTER 

DATESTMP 

DIRECT 
| ENDRCV 

ENDSEND 

EOA 

EOB 

EOBLC 

ERRMSG 

INTERCPT 

LOGSEG 

LPS TART 

MODE 

-CONVERSE 
-INITIATE 
-PRIORITY 

MSGTYPE 
OPCTL 

PAUSE 

POLLIMIT 

POSTRCV 

POSTSEND 

RCVHDR 



IECKBRKF 

IECKCNCL 

-none- 

IECKDATE, IECKEXPD 

IECKDRCT* IECKLKUP 

IECKEOBK(WTTA only) 

-none- 

IECKEOAD 

IECKEOBK 

IECKEOBC 

IECKERMG* IECKLKUP 

IECKITCP 

-none- 

-none- 

IECKMODE* IECKSCAN 

IECKCVRS 

IECKNATE 

IECKPRTY, 

IECKSCAN 
IECKTYPE,, IECKSCAN 
IECKOCTL, IECKSCAN , 
IECKLNCH, IECKDRCT 
IECKPAUS 
IECKPLMT 
IECKOPAW 
IECKOPAW 
-n one- 
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RCVSEG -none- 

REROUTE IECKRRTE, 

ROUTE IECKROUT, 

IECKLKUP 

SENDHDR -none- 

SENDSEG -none- 

SEQIN IECKSEQN, 

SEQOUT IECKSEQT, 

SKIP on count IECKSKPC 
SKIP to character set IECKSKPS, 

SOURCE IECKSRCE, 

TIMESTMP IECKTIME, 

TRAILS IECKTRNS 

WRU -none- 

WTTA Translation Tables 

RCVEITA2 -none- 

RCVEZSC3 -none- 



IECKLKUP 
IECKSCAN 



IECKSCAN 
IECKEXPD 

IECKSCAN 
IECKSCAN 
IECKEXPD 



SENDITA2 
SENDZSC3 



-none- 

-none- 



NESSAGE PROCESSING MACRO INSTRUCTIONS 



Macro Instruction 

CKREQ 

CHNGP 

CHNGT 

COPYT 

COPYP 

COPYQ 

RELEASEM 

RETRIEVE 

STARTLN 

STOPLN 



Module 

IECKCKRQ 

IECKCHPL* 

IECKCHGT 

IECKCPYT 

IECKCPPL* 

IECKCPYQ 

IECKRELM 

IECKRETD, 

IECKLNCH, 

IECKLNCE. 



IECKDCBL 



IECKDCBL 



IECKRETS 
IECKDCBL 
IECKDCBL 
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APPENDIX E: QUEUES AFFECTED BY QTAM ROUTINES 



Figure 32 is a grid showing the QTAM subtask associated with the queue is acti- 

routines that effect the queues. The grid vated through the QTAM nucleus each time 

specifies whether the action was through a the queue is acted upon. 
Qpost or Qwait and what was posted. The 



Appendix E: Queues Affected By QTAM Routines 301 



ROUTINE o 


> 

< 


u 

o 
■0 

< 


-Q 

_o 

"0 
< 


0) 


5 
u 



cr 



u 




a 
a 

< 



< 




.1 



u 





O 

1 


c 

a 
2 



5 


O 


■0 



1 


Q. 
O 


'1 




_E 


BRB Ring 


Post 
BRB 


















Post 
BRB 


Wait 
BRB 


























Buffer BRB 




















Post 
BRB 


Post 
BRB 




Post 

Buffer 






















Buffer Recall/Cleanup 




Post 
BRB 


Post 
Buffer 










Post 
Buffer 


Post 
Buffer 


Post 
BRB 






Wait 






















Change Polling List 




























Post 

Move 

Data 




















Change Terminal 




























Post 

Move 

Data 




















Checkpoint /Restart 










Post 

Dummy 

LCB 


Post 

Ck.pt. 

elem. 














Post 

Dummy 

LCB 






















Check Request 












Post 
ECB 




































Close Message Control 




























Post 

Move 

Data 




















Converse 


Post 
BRB 




Post 
Buffer 














Post 
BRB 




























DASD Destination 




















Post 
Buffer 




























Disk End Appendage 






Post 
Buffer 






Post 

Dummy 

LCB 








Post 
BRB 






Post 
Buffer 












Post 
Buffer 










Disk I/O 


Post 
BRB 
























Post 
Start 

1/0 

elem. 






















End of Poll Time Delay 
























Post 
LCB 


Post 
Time 
elem. 




















Post 
Time 


Free BRB 






















Post 
BRB 


Post 
LCB 
























Get 
































Wait 




Wait 


Post 
Buffer 










Get Scheduler 




















Post 
Buffer 




























Interim LPS 


























Post 
Buffer 






















Line Change 
























Wait 
Line 


Post 

Dummy 

LCB 


Post 
Data 






Post 
LCB 














Line End Appendage 
























Post 
LCB 


Post 
Buffer 






















Line PCI Appendage 


Post 
BRB 




Post 
Buffer 




















Post 
Buffer 






















LPS Control 










Post 

Dummy 

LCB 














Post 
LCB 


Wait 






















Pause 




Wait 
BRB 












































PUT 


Post 
BRB 














Post 
Buffer 














Post 
Wait 
Buffer 






Wait 












Operator Control 






Post 
Buffer 


Post 
Change 






Post 
Copy 










Post 
Line 


Post 
QCB 














Post 
Stop 








Release Intercepted 




























Post 

Move 

Data 




















Retrieve DASD 






Post 
Buffer 














Post 
BRB 
















Wait 












Return Buffer 






Post 
Buffer 




















Post 
Buffer 




Post 

Buffer 


















Send Scheduler 
















Post 
Line 








Wait 
Line 
























Terminal Test Recognition 






Post 
Buffer 


















Post 
LCB 


Post 
Buffer 
















Post 
Buffer 


Post 
Buffer 





Figure 32. Queues Affected by QTAM Routines 
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APPENDIX F: OPERATING SYSTEM CONTROL BLOCK LINKAGES 



The System/360 Operating System provides 
interfaces among program by means of con- 
trol blocks and tables. These blocks have 
standardized formats. They contain 
numerous fields of information and 



references by the program. Some of these 
fields are pointers tc other blocks. 
Figure 33 shows the various blocks and the 
linkages pertinent to QTAM. 



Main Storage 
Location 16 



Communication Vector 
Table 



Task Control 
Block Word 



Task Control Block 



Data Extent Block 



Terminal Table 



Destination QCB 



Task I/O Table 



Unit Control Blocks 




Channel Program 




Data Control Block 



Read/Write Routine 



Next DEB In Task 



Device I/O Modules 



Figure 33. Control Block Linkages 
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APPENDIX G; HEADER AND TEXT RELATIONSHIPS ON A DASD QUEUE 



Header and Text Relationships on a DASD 
Queue 

Figure 34 illustrates how chains of mes- 
sage segments for destination and process 
queues are formed on a direct access 
storage device. 

Each chain consists of a series of areas 
on the direct access device. Each area 
either: (1) contains a message segment and 
the segment's associated header or text 
prefix; or (2) is reserved for the next 
segment to be placed on the chain. The 
areas, and thus the segments, are linked 
into the chain by means of information, 
called relative record numbers, contained 
in the link fields of the prefixes. Each 
chain is formed as follows. At the time 
the direct access queues data set is 
opened, one area is reserved for each chain 
to be formed. The header segment of the 
first message to be put on the chain is 
placed in the reserved area for that chain. 
At the same time , the next two available 
areas are reserved: the first is reserved 
for the header of the next message to be 
put on the chain, and the second is 
reserved for the first text segment of the 
same (tnat is, the first) message. This 
process is repeated for each succeeding 
message segment placed on the chain. Each 
time a neader segment is placed in its 
reserved area, two more areas are reserved; 
each time a text segment is placed on the 
chain, one more area is reserved. 

If tne current segment is the last seg- 
ment of the message, no area is reserved 
for a next text segment. Specifically, 
when a message consisting of only a header 
segment is placed on the chain, only one 
area is reserved (that is, for the header 
of the next message) ; when the last of a 
series of text segments is placed on the 
chain, no area is reserved. 

At the time an area is reserved, link 
information is placed in the link fields of 
the prefixes of the associated segments. 
Each header prefix contains the relative 
record numbers of the areas occupied by: 
(1) the first text segment of the same mes- 
sage; (2) the previous header segment; and 
(3) the next header segment. Each text 
prefix contains the relative record numbers 
of the areas occupied by: (1) the next 
text segment of the same message; and (2) 
the header of the same message. If the 



header is the only segment in the message, 
the relative record number of the area 
occupied by that header is placed in its 
"next segment" link (MSLINK) field. If the 
text segment is the last segment in the 
message, the relative record number of the 
header of the same message is placed in the 
MSLINK field. 

The figure illustrates the progressive 
development of two chains, one for queue A 
and one for queue B. The time span covered 
begins with the initialization of the 
queues (when the direct access queues data 
set is opened) and ends when there are 
three complete messages on the chain for 
queue A, and two complete messages on the 
chain for queue B. 

The five messages contain a total of 
fourteen segments, which are placed on the 
chains in the following sequence: 

1. Header of message 1 queue B (B-l) 

2. Text segment of B-l 

3. Header of A-l 

4. Header of A-2 

5. Header of B-2 

6. Text segment of A-l 

7. Text segment of A-2 (last segment) 

8. Header of A-3 

9. Text segment of A-l 

10. Text segment of B-2 (last segment) 

11. Text segment of B-l (last segment) 

12. Text segment of A-3 

13. Text segment of A-l (last segment) 

14. Text segment of A-3 (last segment) 

Each step in the development of the 
chains is shown in Figure 34. Each step 
shows the currently filled areas of the 
direct access space allotted to the chains, 
the areas reserved for succeeding segments , 
and the location of the next available area 
(that is, the area that will be reserved in 
a succeeding step) . 
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Figure 34. Example of Message Header and Text Relationships in Direct Access Destination 
and Process Queues 
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INDEX 



Activate routine 
112,13,34,37,38,39,41,43,79 

chart 214 
Active Duffer request queue 21,267 
Active Duffer request routine 
111,33,35,37,42 

chart 210 
Active buffer request subtask 

269,33,35,37,42 
Additional CCW queue 21,267 
Allocation 

CPU processing time 15 

I/O paths lb 

main storage space 15-16 
Assembling QTAM 9-10 
Auto Poll, feature 73,54 

channel programs 7 3 
Available buffer queue 21,266 
Available Duffer routine 111,37,4 2 

chart 211 
Available buffer subtask 269,37,4 2 

BRB (see Buffer request block) 
BRB ring routine 110-111,32 

chart 205 
Breakoff routine 76 

chart 156 
BTAM operation within QTAM 53-75 
BTAM Read/Write module 53,34,39 
BTAM Read/Write subroutines 49,53,54 
Buffer BRB routine 111,33,35,37,4 2,47 

chart 212 
Buffer cleanup and recall routine 
115,13,35,3 9-40,43,77,78,80,81,83,8 9 

charts 200,201 
Buffer request block 289 

fields 290 

format 290,291 

status codes 291 
Bus out and overrun routine 126,122 

chart 140 
Bus out and overrun for auto poll routine 
129,122 

chart 151 

Cancel message routine 76-77 

chart 179 
Change polling list routine 101 

chart 171 
Change queue 269 
Change terminal table routine 101,102 

chart 169 
Changel subtask 271 
Channel command word (CCW) 

format 54-55 
Channel programs for: 

AT&T 83B3 selective calling station 
57,58 

IBM 1030 lines 58,59 

IBM 1050 (nonswitched) lines 59-60 

IBM 1050 (switched) lines 60-62 

IBM 1060 lines 62 



IBM 2740 basic 63-64 

IBM 27 40 with checking 64-65 

IBM 2740 with dial 65 

IBM 27 40 with dial and checking 66,67 

IBM 2740 with dial and transmit control 
67,68 

IBM 2740 with dial, transmit control, 
and checking 68,69 

IBM 2740 with station control 69,70 

IBM 2740 with station control and 
checking 70,71 

IBM 2848/2260 remote 71-73 

TTY models 33/35 TWX 63 

Western Union plan 115A outstation 58 
Channel program generation 54-56 
Check point queue 26 9 
Check point request routine 102*121 

chart 161 
Check point/restart 10 
Check point routine 120-122,34 

charts 251,2 52 
Check point subtask 271,121 
Check request queue 26 9,102 
Check request subtask 271 
Cleanup routine 

(see Buffer cleanup and recall routine) 
Close communications line group routine 
93,48 

chart 228 
Close direct access message queue routine 
93,48 

chart 229 
Close message control routine 102, 47 

chart 2 30 
Close process queue (input and output) 
routine 93,48 

chart 22 6 
Closedown 47-48 

Command reject, equipment check, SIOCC1, 
SNO error routine 127 

chart 14 4 
Communications line queue 247,22 
Communications serviceability facilities 

120-131 
Control blocks, QTAM 272-291 
Control module 106-109 

(see also nucleus) 
Conversational mode routine 81-82 

chart 191 
Copy clear queue 2 68,84 
Copy clear subtask 271 
Copy polling list routine 103 

chart 170 
Copy queue control block routine 103 

chart 172 
Copy terminal table routine 102-103 

chart 174 
Cross oartition move routine 
119,101,102,104 

chart 225 
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DASD destination queue 267 , 35 
DASD destination routine 116,36,4 5 

chart 224 
DASD destination subtask 270 
DASD process queue 268,35,45 
Data check routine 124 

chart 132 
Data control block (DCB) 

fields and description of 277-279 

format of 277 
Data event control block (DECB) 

description of fields 28 4 

format of 284 
Data extent block (DEB) 

fields and description of 280-281 

format of 280 

for MS destination queue 2 82 

for MS process queue 282 
Date stamp routine 77 

chart 175 
DCB (see data control block) 
DEB (see data extent block) 
DECB (see data event control block) 
Defer entry subroutine 107 , 9 
Device I/O directory 

format and description 56 
Device I/O module 55-56 
Diagnostic Write/Read routine 128 

chart 146 
Dial Out-Call queue 269 
Disk end appendage routine 112,31, 41 r 45, 46 

chart 194 f 195 
Disk input/output queue 267 , 21 
Disk I/O routine 111, 36, 41, 42 f 44, 45 

chart 196 
Disk I/O subtask 269,36,41,42,44,45 
Distribution list queue 268 
Distribution list routine 77 

chart 198 
Distribution list subtask 270 



Element control block 

(see resource element control block) 
End insert routine 119,77,78,82 

chart 203 
End of address routine 7 8 

chart 199 
End of block 78,79,38,39,43 

chart 192 
End of olock and line correction routine 
79-80,38,39,43 

chart 193-194 
End of poll time delay routine 118,32 

chart 207 
ENDREADZ macro instruction 
Entry interface subroutine 
Error message routine 8 

chart 184 
Error post routine 125 

charts 138,139 
Error recovery procedures 
Exit interface subroutine 
Exit select subroutine 108,9 
Expand routine 80,77,90,92 

chart 18 8 
External routines 9,13,76 



Free BRB routine 
chart 202 



118,13,40 



11,34 
106,9 



122-129 
108,109,9 



Get message routine 98,44,4 5 

chart 164 
Get record routine 98,44,45 

chart 165 
Get scheduler routine 116,36,44^45 

chart 222 
Get scheduler subtask 270,45 
Get segment routine 99,44,4 5 

chart 163 
Get SVC1 queue 26 9 
Get SVC subtask 271 

Header and text on the DASD queue 304 

Implementation module 10,13,110 
Inactive BRB queue 21, 268 
Initialization 10-11, 30-33 
Initiate mode routine 8 2 

chart 190 
Input/output block (I OB) 274-275 
Insert block 

description of 291 

format of 291 
Intercept routine 80-81 

chart 187 
Interim LPS queue 268*22,34 
Interim LPS routine 118,3 4 

chart 221 
Intervention required routine 125 

charts 134,135 

Key, field of QCB 25 

Line change queue 269„102 

Line change routine (see start line-stop 

line routine) 
Line change subtask 271 
Line control block (LCB) 

fields and description 274-276 

format 275 
Line end appendage routine 113,38,39,42,43 

charts 218,219 
Line error recording routine 128 

chart 147 
Line group open executor load 1 routine 
94,31 

chart 242 
Line group open executor load 2 routine 
94,31 

chart 243 
Line group open executor load 3 routine 
95,13,31,33 

chart 244 
Line group open executor load 4 routine 

95,33 
Line PCI appendage routine 113-114 

chart 217 
Line procedure specification (LPS) 

routines 76-92 
Line SIO appendage routine 112*34,39,41,43 

chart 215 
Link routine 126 

chart 141,142 
Linkage editing QTAM 9-10 
Linkage of QTAM modules 292-296 



• 308 



Locate DCB routine 103 

chart 153 
Logical organization of QTAM 13-29 
Lookup routine 81, 80, 8 8 (f 89 

chart 182 
Lost data routine 125 

chart 137 
LPS control routine 
112, 13, 34 f 35, 37 r 38, 39, 41 f 42,4 3,4 8,82 

chart 213 
LPS queue 21,268 
LPS subtask 270 

Macro instructions 

list of 299-300 

(see associated routine) 
Main-storage process queue 21,44,45 
Main-storage destination queue 47 
Message control program 

assembling 9 

contents of 13 

initializing 10-11 

linkage editing 9-10 

routines 76-92 
Message mode routine 81 

chart 190 
Message processing operational flow 44-47 
Message processing program 

assembling 10 

contents of 15 

initializing 10-11 

linkage editing 10 

routines 9 8-105 
Message type routine 83 

chart 168 
Mode 

conversational 81 

initiate 82 

message 81 

priority 82 
Modules, list of QTAM 297-3 00 

by macro instruction 299-300 

by module name 297-299 
Move data queue 267,22 
Move data subtask 271 

Not operational start I/O routine 129 

chart 150 
Nucleus, QTAM 9,25,29 

charts 253,254 

(see also control program module) 

On line terminal test 130 
Open checkpoint records data set routine 
96,30 

chart 247,248 
Open direct access load 2 routine 96,30-31 

chart 246 
Open direct access message queue routine 
95,30 

chart 24 5 
Open line group (see line group open 

executor) 
Open message processing program routine 
97,44 

chart 162 
Operator awareness 83 
chart 241 
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chart 14 8 
Operator control routine 83-88 

chart 231 
Overrun routine 129 

chart 152 



Pause routine 88 

chart 158 
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format 287 
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Priority mode routine 82 

chart 190 
Priority of subtasks 20 
Priority search subroutine 107„9,77 
Put message routine 97,46 

chart 197 
Put record routine 100,46 

chart 167 
Put segment routine 100*101,4 6 

chart 16 6 
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Qdispatch subroutine 107,108,9 
Qdispatch subtask 270 
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QTAM 
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QTAM wait subroutine 106,9,88,104,105 
Queue 
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DASD destination queue 273 

DASD process queue 273 

fields and description 272 

format 272 

special form 28 9 

types of 21-22 
Queue insert by priority subtask 270 
Queue insert subroutine 107*9 
Queue insert subtask 270 
QWAIT 

from problem program 22 

from internal implementation subtask 23 

RCHNGT subroutine 84-85 

chart 235 
RCOPYC subroutine 84 

chart 233 
RCOPYT subroutine 84 

chart 2 34 
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chart 145 
Ready queue 17 
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Receive scheduler routine 110,32 

chart 204 
Receive scheduling subtask 270,32 
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chart 157 
Reroute routine 8 9 

chart 186 
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charts 256,257 
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chart 160 
Retrieve DASD routine 104,105 

chart 159 
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chart 223 
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chart 236 
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chart 240 
Route routine 8 9,78 

chart 181 
RRELEASM subroutine 8 5 

chart 236 
RSTARTLN subroutine 8 5 

chart 237 
RSTOPLN subroutine 8 5 

chart 238,239 
RSWITCH subroutine 84 

chart 237 
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chart 173 
Sending operational flow 40-44 
Send scheduler routine 118,36,40,43 

chart 208-209 
Send scheduling subtask 270,40,43 
Sequence-in routine 9 

chart 189 
Sequence-out routine 90 

chart 180 
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chart 177 
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chart 177 
Source routine 91 

chart 176 
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chart 154 
Status check routine 127 
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Stop 3 subtask 271 

Stop 4 queue 269,87 

Stop 7 subtask 251 
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chart 232 
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chart 255 
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PREFACE 



This Program Logic manual is a guide to the 
internal structure of the Queued Telecom- 
munications Access Method (QTAM). It is 
designed to be used with the prcgrair list- 
ing; program structure at the machine 
instruction level is not discussed- 
Effective use of this manual requires a 
knowledge of the concepts presented in the 
following IBM System/3 60 publications: 

IB M System/360 Pr inciples of Operation , 
Form A22-6821 

IB M System/360 O perating Sy stem ; Queued 
Telecommunications Access Method, Mes- 
sage Control P ro gram , Form C30-2005-2 



IBM System/360 Ope rating System: Link- 



IBM System/360 Operating System: 
Telecommunications Access Method., 



Queued 

Mes- 



sage Processing Program Services ,, Form 
C30-2003-3 

In addition, the following publications 
may be used when information afccut ether 
elements of the control program is 
reguired: 

I BM System/3 b O perating System: 
Assembler 32K , Form Y26-3598 



I_BM_S ys tem/3b0 Operating System: 
Assembler 6UK , Form Y26-3700 

I BM System/360 Operating Sys tern : Basic 
Di rect Access Wethod, Program Logic 
Man ual, Form Y28-6617 

IBM Sy s tem/3b0 Operating System: I/O 
Supervisor, Program Logic Manual s Form 
Y28-b61b 

IBM System/3b0 Operating Sy s tem: I/O 
Support (OPEN/CLOSE/EOV) , Program Logic 
Manual , Form Y28-6609 

IBM System/3 b0 Operating System: Job 
Management, Program Logic Manual g Fo rm 
Y28-b613 



age Editor 
Y28-6610 



Program Logic Manual ,, Form 



IBM System/360 Operating System: 
Sequential Access Method, Program Logic 
Manual , Form Y28-66Q4 



IBM System/360 Ope ra ting Sys t em: D ir ect 
Access Device Space Management, Program 
Logic Manual , Form Y28-6607 



IBM System/360 Operating System: Cata- 
log Management, Prcqram Logic Manua ls 
Form Y28-6606 



IBM System/360 Operating System: Fixed- 
Task Supervisor, Program Logic Manual , 
Form Y28-6612 



This publication contains the following: 
discussions on the physical organization 
and logical organization as an introduction 
to QTAM„ an outline of the QTAM operation 
as an overall logic flow,,, the function of 
BTAM within QTAM, a summary of the internal 
logic at the routine level, flowcharts of 
each routine, and appendixes. The 'routine 
names that appear as labels on the overall 
logic flowchart can be used to access the 
detailed flowchart for the specific rou- 
tine. The labels on these detailed flow- 
charts relate to the labels on the listings 
for the routine. 

'Throughout this publication, option 2 of 
multiprogramming with a fixed number of 
tasks is assumed (MFT) . QTAM also runs 
under option 4 of multiprogramming with a 
variable number of tasks (MVT). There are 
no major differences in these two options' 
of the operating system for the logic of 
QTAM except that partitions are regions and 
priority of partitions must be assigned to 
jobs in MVT. 
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P HYSI CA L ORGANIZATION OF QTAM 



This section describes the various parts 
of the total package called QTAM and 
explains what the parts are f where they 
come from, how they get into the system, 
and their relationship to the rest of the 
package. The function of these QTAM parts 
and the logic of their operation are dis- 
cussed in detail in subsequent sections. 

Figure 1 shows the steps taken to begin 
processing in the QTAM environment. The 
following discussion deals with these 
steps : 

1. System generation. 

2. Assembling and linkage editing a mes- 
sage control program. 

3. Assembling and linkage editing a mes- 
sage processing program. 

4. Initializing a message control 
program. 

5. Initializing a message processing 
program. 



8. Exit select 

9. Exit interface 



QTAM MACRO DEFINITIONS 

The operating system macro definition 
library (SYS1.MACLIB) includes the macro 
definitions used during the assembly of the 
message control program and message pro- 
cessing programs. Appendix D lists the 
QTAM macro instructions. 



EXTERNAL ROUTINES 

When performing a system generation to 
include QTAM, the user must define a spe- 
cial library area named SYS1.TELCMLIB. 
During the generation run,, all routines 
that will later be linkage edited with mes- 
sage control and message processing object 
modules are copied from SYS1.MODLIB into 
SYS1.TELCMLIB. In this publication, these 
routines are defined as external routines . 
Appendix D lists the modules in 
SYS1.TELCMLIB and indicates the function 
performed by the routine or routines in 
each module. 



SYSTEM GENERATION 

QTAM NUCLEUS 

When QTAM is called for during a system 
generation procedure (QTAM operand in 
DATAMGT system generation macro instruc- 
tion) , a number of routines collectively 
called the QTAM nucleus are included as a 
permanent part of the System/36 Operating 
System supervisor nucleus. These routines 
are then always present in the system, 
whether or not a telecommunications appli- 
cation is being run. 

The QTAM nucleus is packaged as a single 
module named IECKQQ01. During system 
generation, it is linkage edited from 
SYS1.MODLIB into SYS1. NUCLEUS. It is 
loaded from there by the IPL program as one 
of the resident SVC routines. The QTAM 
nucleus consists of the following nine sub- 
routines, each of which is discussed later 
in this manual: 

1. Entry interface 

2. QTAM wait 

3. QTAM post 

4. Qdispatch 

5. Defer entry 

6. Priority search 

7. Queue insert 



SUPPORT MODULES 

During the generation run, all modules 
that are loaded into main storage by the 
various Open executors and the QTAM Open 
and Close executors are copied from 
SYS1.CQ519 into the SYS1.SVCLIB. In this 
publication, these modules are defined as 
support modules . Appendix D lists the QTAM 
support modules in SYS1.SVCLIB. 



ASSEMBLING AND LINKAGE EDITING A MES SAGE 
CONTROL PROGRAM 

The user codes the QTAM macro instruc- 
tions necessary to design a message control 
program. The output of this assembly 
includes: several tables and control 
blocks, a buffer area, linkages to QTAM 
external and support routines, and, except 
for these linkages and a few minor Line 
Procedure Specification (LPS) macro 
instruction expansions, very little other 
executable code. The message control 
object module may include some user-written 
routines, but these usually- will not be 
extensive. 
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The assembled object module is then 
linkage edited to include the necessary 
external routines from SYS1.TELCMLIB. 
These external routines are the LPS rou- 
tines used in processing header informa- 
tion, translating from one code to another, 
directing messages to the proper lines and 
queues, etc. 

The resulting load module is stored in a 
system library to be loaded for execution. 



ASSEMBLING AND LINKAGE EDITING A MESSAGE 
PROCESSING PROGRAM 

A message processing program normally 
needs only the OPEN, CLOSE, GET, and PUT 
macro instructions and some data set 
definition macro instructions. When this 
is the case, no external routines are 
required to be linked with the object 
module. An installation will also write 
one or more message processing programs 
that use the following macro instructions 
to examine and modify the status of the 
control program: 



CHNGP 

CKREQ 

CLOSEMC 

CHNGT 

COPYP 

COPYT 

COPYQ 

RELEASEM 

RETRIEVE 

STOPLN 

STARTLN 



When any of these macros are used, the 
linkage editor will include the correspond- 
ing external routines in the load module. 
The load module is stored into a system 
library for execution. 



INITIALIZING THE MESSAGE CONTROL PROGRAM 

The QTAM message control program is 
normally executed in partition as the 
highest priority task in the system. The 
initiator/terminator loads and transfers 
control to the message control program. 
The first QTAM macro instruction executed 
must open the DASD queue area. When the 
system Open routine detects the unique 
organization code for the QTAM DASD queue, 
it loads and transfers control to the first 
QTAM Open executor (module IGG01930). The 
Open routine performs several functions 
described in more detail in subsequent sec- 
tions. For the purposes of this section, 
however, we need note only that the Open 
routine loads a large module called the 
QTAM Implementation module (IGG019NG) and 
Checkpoint/Restart module (IGG019NH) into 



partition 0, along with the Message Control 
Load module. 

The Implementation module contains three 
distinct types of routines - distinct as 
far as their logical relationship to the 
rest of the system. The three types are: 

1. Problem program routines - executed 
enabled to all interruptions as part 
of the message control program task. 
These routines receive control through 
branches from the external routines 
linkage edited with the message con- 
trol program. 

2 « S upervisory routines - executed dis- 
abled to all interruptions as part of 
the QTAM nucleus "task." These rou- 
tines receive control through branches 
from the QTAM nucleus. 

3 - I/O appendages - executed disabled to 
all interruptions, again logically as 
part of the QTAM nucleus "task." 
These appendages receive control from 
the I/O Interruption Handler in the 
input/output supervisor (IOS). 

The logical relationship of the preced- 
ing routines is discussed more fully in the 
next section. When only physical organiza- 
tion is considered, this collection of rou- 
tines represents no more than a' convenient 
and efficient packaging technique. The 
Implementation module can in no way be 
thought of as a "program." 

When the DCBs for the communications 
line groups are opened, four other QTAM 
Open executors are used (modules IGG0193N, 
IGG0193R, IGG0193T, and IGG019UA) . These 
routines also perform several functions to 
be discussed later. For this discussion, 
however, note that only the WTTA Line 
Appendage (IGG019QB) is loaded by the first 
of these four executors when opening a WTTA 
line group; the BTAM Read/Write routine and 
BTAM modules containing model channel pro- 
grams are loaded by the third of these four 
executors. These modules are also loaded 
into partition 0. The BTAM Read/Write rou- 
tine is run in the problem program state as 
part of the user's message control task. 



I NITIALIZING A MESSAGE PROCESSING PROGRAM 

It is possible to run a message control 
program with no message processing program. 
For example* a message switching applica- 
tion can be handled entirely within the 
message control program with a single mes- 
sage processing program loaded at the end 
of the day to initiate a system shutdown 
procedure. However, there is usually at 
least one, and possibly two or three, mes- 
sage processing programs being executed at 
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The Read Continue channel program sends 
a positive response to the previous message 
block, followed by three circle Cs to put 
the terminal in control mode. These are 
followed by three additional circle Cs. 

Read Repeat Channel Program 



Operation 


Address 


Flags 


TP-OP Codes 


Count 


1 . Write negative response 

and 3 deselect characters 
2. Write 3 circle Cs 


Table 
Table 


CD 
SLI 


02 
01 


4 
3 



Initiated by the EOB or EOBLC routine 
after a successful Write Initial or Write 
Continue operation, the Write Continue 
channel program writes data and then 
command- chains to read the response to lon- 
gitudinal redundancy checking. This 
response is read into the DECRESPN+1,, which 
is the second byte of a two-byte response 
field in the DECB. 
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The Read Repeat channel program sends a 
negative response followed by three circle 
Cs to put the terminal in control mode. 
These are followed by three additional 
circle Cs. 

Write Initial Channel Program 



Read Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . (Write 3 circle Cs, 


Table 


CD 


02 


4 


circle S) 










Write deselect characters 










2. Write addressing 


List 


CD 


03 


1 


characters 










3. Write "1" 


Table 


CC, SLI 


04 


Table 


4. Read addressing response 


Respn 


CC 


06 


1 


5. Write circle D 


Table ° 


CD 


08 




6. Write data 


Area+1 


CC, SLI 


11 


Length 


7. Read response to LRC 


Respn +1 




20 


1 



The Write Initial channel program sends 
out a circle C and a circle S to deselect 
the 1030 terminals, transmits a single 
addressing character followed by a 1, and 
reads the addressing response into the 
first byte of the DECRESPN in the DECB. 
Because multiple addressing is not possible 
with 1030 lines , the Read Response CCW is 
command-chained to a Write Circle D CCW to 
send a circle D before the message. The 
Circle D CCW is data-chained to write the 
message. This is followe # d by a CCW with 
read the LRC response. 

Write Continue Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write data 

2. Read response to LRC 


Area 
Respn +1 


CC, SLI 


11 
20 


Length 

1 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write deselect characters 


Table 


CD 


02 


3 


(3 circle Cs) 










2. Write polling characters 


List 


CC, SLI 


03 


2 


3. Read response 


Area 


CD 


05 


2 


4 . Read data 


Area +2 


SLI 


11 


Length-2 



The Read Initial channel program 
initiated by the Read/Write routine places 
the line in control mode* polls a terminal, 
and reads the response. (Control mode is 
that state of the system that allows a ter- 
minal to be selected.) The third command 
(Read Response character) specifies a data 
count of 2, with wrong length indication 
not suppressed, while the length of the 
response character is one byte. Under the 
existing configuration of BTAM, the effect 
of this technique is as follows: 



Positive response . The response 
character and the first byte of the 
message are read under control of the 
Read Response CCW. This reduces the 
data count to zero and causes data- 
chaining to take place. The second 
and subsequent bytes of the message 
are read under control of the address 
and count fields of the Read Data CCW. 
Execution continues in the channel 
with an interrupt occurring only at 
end of transmission. 

Negative response . This response 
causes channel end and device end with 
unit exception and wrong length record 
indicated. The QTAM Appendages detect 
the polling restart TP Op code, reini- 
tialize for the next terminal to be 
polled, and return control to IOS for 
execution of the CCWs beginning with 
the one containing a 03 TP Op code. 
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Read Continue Channel Program 



Write Continue Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write response 
(circle Y) 

2 . Read data 


Table 
Area 


CC, SU 
SLI 


02 
11 


1 
Length 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write Data 

2. Read response to LRC 


Area 
Respn +1 


CC, SLI 


11 
20 


Length 
1 



The Read Continue channel program is 
initiated by the EOB or EOBLC routine after 
a successful Read Initial or Read Continue 
operation; the program writes the response 
character and command-chains to Read Data. 



Read Repeat Channel Program 



The Write Continue channel program is 
initiated by the EOB or EOBLC routine after 
a successful Write Initial or Write Con- 
tinue operation; the program writes data 
and command- chains to read the response to 
longitudinal redundancy checking. The 
response is read into DECRESPN+1, the 
second byte of the 2-byte response field in 
the DECB. 



Opei ation 


Address, 


Flags 


TP-Op Code 


Count 


1 . Write negative i espon^e 

( circle N) 

2 Read dora 


Table 
Area 


CC, SLI 
SLI 


02 
11- 


1 

Length 



The Read Repeat channel program is 
initiated by the EOBLC routine after a data 
check occurs during execution of the Read 
Data command of a Read Initial or Read Con- 
tinue operation. The program transmits a 
negative response, and then chains to the 
second CCW to read data into the main 
storage area originally specified. 



Write Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1 . Write deselect characters 


Table 


CD 


02 


3 


(3 circle Cs) 










2. Write addressing chars 


List 


CC, SLI 


03 


2 


3. Read response 


Respn 


CC 


06 


1 


4. Write circle D 


Table 


CD 


08 


1 


5. Write data 


Area 


CC, SLI 


11 


Length 


6. Read response to LRC 


Respn +1 


*• 


20 


1 



The Write Initial channel program, 
initiated by the Read/Write routine, places 
the line in control mode, addresses a ter- 
minal f and reads the response. The Read 
Response CCW is command-chained to a Write 
Circle D CCW to send a circle D before the 
message- The Circle D CCW is data- chained 
to write the message. 
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Read Initial Channel Program 



Operation 


Address 


Flags 


TP-Op Code 


Count 


1. Disable 


Zero 


CC, SLI 


01 


1 


2. Dial 


List 


CC, SLI 


01 


Dial List 


Enable 


Zero 


SLI 


01 


1 


3. Write pad characters 


Table 


CD 


01 


15 


4. Write deselect characters 


Table 


CD 


02 


3 


(3 circle Cs) 










5. Write polling characters 


List 


CC, SLI 


03 


2 


6. Read response 


Area 


CD 


05 


2 


7. Read data 


Area +2 


SLI 


11 


Length-2 



The Read Initial channel program 
initiated by the Read/Write routine dis- 
ables and then enables the line adapter so 
that a remote terminal may dial the CPU. 

When a terminal dials the CPU, the 
enable is complete, and 15 pad characters 
are sent. These are followed by thtee 
circle Cs to place the terminal in control 
mode. The two polling characters are sent. 
The sixth command (Read Response character) 
specifies a data count of 2, with wrong 
length indication not suppressed, while the 
length of the response character is one 
byte. Under BTAM f the effect of this .tech- 
nique is as follows: 

1. Positive response . The response 

character *and the first byte of the 
message are read under control of the 
Read Response CCW. This reduces the 
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MESSAGE TYPE ROUTINE (CHART CA) 

Function : This routine saves the scan 
pointer, and then links to the Scan rou- 
tine, which obtains and provides (for the 
Message Type routine) the message header 
character pointed to. The Message Type 
routine compares the character provided 
with the character specified in the MSGTYPE 
macro statement. If the characters are 
identical, the routine branches to the next 
executable LPS instruction. If they are 
not identical, the routine restores the 
scan pointer and branches to the next Mes- 
sage Type routine (if this is the last Mes- 
sage Type routine, it branches to the next 
delimiter routine) . Because the scan 
pointer is restored when the two characters 
are not the same, a series of Message Type 
routines may be executed, each examining 
the same message type character in the 
header. 

Module Name : IECKTYPE 

Entry Point : Expansion of the MSGTYPE 
macro instruction generates a BALR to the 
routine at IECKTYPE, using register 15 as 
the branch address register and register m 
as the return register. Register 14 also 
serves as a parameter list register. The 
parameter list passed to the routine con- 
sists of: 

• A halfword containing the field size 
(one byte) . 

• A character constant containing the 
character to be compared with the 
scanned character. 

• A character constant containing a 
blank. 



External Routines Used : 
IECKSCAN) 



Scan (module 



OPERATOR AWARENESS (CHART EO) 



If a threshold message is to be sent, 
indicated by a nonzero value in the next to 
the last byte in the LCB„ the line number 
(in next to last byte) and counters are 
obtained from the LCB and placed in the 
message in printable form in the following 
format: 

aaa THRESHOLD TRANS=bbb DC=ccc ID=ddd TU=eee 

Where: aaa = Line number 

bbb = Transmission counter 

ccc = Data check counter 

ddd = Intervention required counter 

eee = Time-out counter 

After the message has been formatted the 
threshold counters are cleared. 

The routine branches and links to the 
Buffer Recall routine in the Implementation 
module to obtain the header. Idle charac- 
ters are inserted if specified. The mes- 
sage is moved into the buffer. The QCB 
address is obtained from the operator con- 
trol entry in the terminal table. 

The routine exits by branching to the 
Buffer Cleanup routine to post the message 
and return all buffers. 

Module Name : IECK0PAW 

Entry Point : Expansion of the POSTSEND or 
POSTRCV macro instruction generates an 
unconditional branch to the Implementation 
module (IGG019NG). This location in the 
module is a branch instruction to an 
address constant of the Operator Awareness 
routine at IECKOPAW. The routine is passed 
the LCB address, which contains information 
for the messages* in register 4 and the 
address of the buffer, into which the mes- 
sage is to be placed, in register 6. 

External Routines Used : Buffer Recall and 
Cleanup (IECKRC and IECKPR in IGG019NG) 



Function : This routine is used to format 
messages to be sent to the operator control 
terminal. If an I/O error message is to be 
sent, indicated by a hexadecimal •FF* in 
LCBCPA' +28, the line* number, status, sense, 
TP Op Code, index byte, and terminal ID are 
obtained from the LCB and put into the mes- 
sage in printable form in the following 
format: 

aaa , I/O ERR, bb, cccc, ddee, f f gg, hhhh 

where: aaa = Line number 

bb = Operation code 
cccc = Status halfword 
ddee = Sense information 

ff = TP Op code 

gg = Index byte 
hhhh = Terminal identifier 



OPERATOR CONTROL ROUTINE (CHART EE) 

Function : After saving the base register, 
scan pointer register,, and return register, 
the routine branches to the Scan routine to 
get the first field of the current message 
header. A test is made for a header error. 
If one has occurred, control is returned to 
the next LPS instruction after the scan 
pointer register and return register are 
restored. 

The control message indicator characters 
are moved into a work area and compared 
against this first field of the header. If 
they are not the same» then that message is 
not a control message; scan pointer and 
return registers are restored and control 
returns to the next LPS instruction. 
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If this is a control message, a test is 
made to see if it is a single-segment mes- 
sage. If it is a multisegment message, or 
if it is cancelled, the source key is moved 
to the destination key field of the termi- 
nal table entry, the QCB for that terminal 
is moved into the destination queue field 
of the LCB, registers are restored, and 
control is returned to the macro, which 
branches to ENDRCV, thus initiating the 
resending of that message to the source 
terminal. 

If this is a single-segment message and 
it was not cancelled, the next field of the 
header is obtained by the Scan routine. 
This field, which should be the message 
type, is compared to find the type of 
operation desired. When the operation type 
is found, control passes to the routine to 
handle that process. If the operation 
specified is not valid, the message is 
retransmitted to the source terminal as 
described above. 

SUB1 (CHART EF) ; Common subroutine to get 
the next field in the header (termname) , 
find the offset of that terminal from the 
beginning of the terminal table, get the 
size of the remainder of the buffer, and 
the address of the terminal table, IECKSCAN 
and IECKDRCT are used to scan the header 
and look up the next field in the terminal 
table. If the terminal table entry is 
found, control returns to the calling rou- 
tine. If not found, control is passed to 
the routine that will initialize for 
resending the message to the source 
terminal. 



remaining in the buffer. The lesser figure 
is passed to the UNPAK subroutine to unpack 
the entry into the buffer and translate it. 
The message is then sent to the source. 



RCOPYC (CHART EG) : Control is passed to 
the SUB1 subroutine to get the termname, 
offset to that terminal table entry, and 
the number of bytes remaining in the buf- 
fer^ The QCB address is obtained from the 
entry and a check is made to see if this is 
a terminal entry. If a list or process 
entry, then the message is returned to the 
source terminal. If it is a terminal 
entry, the relative line number and DCB 
address are gotten from the QCB. The LCB 
size and the address of the start of the 
LCBs are obtained from the DCB. The LCB 
address for this line is calculated, and 
the address of the counters in that LCB is 
calculated. The copy QCB is posted to 
itself. When the QCB comes to the top of 
the ready queue, the Copyclr routine is 
executed. 

The Copyclr routine restores the regis- 
ters to their values before the Qpost. The 
threshold counters are added to the cumula- 
tive counters. The number of bytes remain- 
ing in the buffer is compared with the num- 
ber of bytes needed to receive the trans- 
lated counter data. The smaller figure is 
used as the number of bytes to be unpacked 
and translated by the UNPAK subroutine. 
When control returns from the UNPAK subrou- 
tine, the threshold counters are cleared to 
zero and control passes to the Qdispatch 
subroutine. 



UNPAK (CHART EF) : Common subroutine used 
to unpack the terminal table entry or the 
counters and convert the data to EBCDIC. 
The data is unpacked 8 bytes at a time into 
the buffer until there are less than eight 
bytes left to be converted. When this 
occurs, the next 8 bytes are unpacked into 
a work area. The data in the work area is 
moved into the buffer for the remaining 
number of characters. A check is made to 
see if the EOB and EOT characters can fit 
in the buffer. If they cannot, the EOB and 
EOT are moved into the last two bytes of 
the buffer. Otherwise, they are moved into 
the two bytes following the converted data. 
The actual size of the data to be trans- 
mitted is stored in the MSEGSZE field of 
the message prefix. 

RCOPYT (CHART EH) : Control is passed here 
when a COPYT control message is received. 
The routine uses the SUB1 subroutine to get 
the offset of the termname and the number 
of bytes remaining in the buffer. The size 
of the terminal table entry is obtained and 
doubled to get the number of bytes after 
conversion. The size of the unpacked entry 
is compared with the number of bytes 



RSWITCH (CHART EK) : Control comes here 
when a SWITCH control message is received. 
A test is made to see if the ALTERM parame- 
ter was specified. If it was not, the mes- 
sage is returned to the source terminal. 
If ALTERM was specified, the offsets to the 
primary, control terminal and the alternate 
are reversed in the macro-generated parame- 
ter list. The "serviced" bit in the prefix 
is set, and control is returned to the 
macro* which then branches to the ENDRCV 
macro expansion. 

RCHNGT (CHART EI) ; Control comes here when 
a CHNGT control message is received. SUB1 
is used to get the offset to the terminal 
table entry and the number of bytes left in 
the buffer. The blank delimiters following 
termname in the header are skipped over. 
The data to be placed in the terminal table 
is translated and this data is scanned for 
a delimited blank, EOB, EOT, or invalid 
character. If a delimiter is not found or 
if an invalid character is found, a test is 
made to see if there is enough room to 
insert the EOB and EOT in the buffer. If 
there is room f it is put in after the data. 
If not, it is put in after termname. In 
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LINE GROUP OPEN EXECUTOR - LOAD 3 ROUTINE 
(CHART F3) 

Module Name ; IGG0193T 

Function : This routine is entered by an 
XCTL from the Line Group Executor - Load 2 
routine. The identification, relative 
track number, and record address of the 
BTAM Read/Write module is set for the Load 
subroutine. The Load subroutine loads the 
BTAM Read/Write module for use by QTAM. 
The offset to the channel identification 
table, record address, and relative track 
number are obtained to load in the Device 
I/O module. The model channel program for 
the device specified in the DCBDEVTP field 
of the DCB is loaded into the channel pro- 
gram area. 

If a restart is in progress, a search of 
the terminal table is made for a destina- 
tion QCB. If the DCB specified in the QCB 
is not the current DCB, the search is con- 
tinued for another destination QCB. The 
address of the LCB is obtained for the DCB 
being opened. 

If the "send" bit is not on, this is a 
receive-only terminal, therefore setting up 
the Send Scheduler is skipped. 

If the "send" bit is on for this termi- 
nal, the send scheduler STCB is set up in 
the QCB. If the Send Scheduler is already 
in the QCB, the search is continued on the 
terminal table. If the address of the next 
segment is equal to the next message, one 
less segment is put in the link field of 
the QCB. If the line is trying to send, 
the address of the header is set in the 
QFAC field of the QCB. 

If there is an incoming message, the 
header is read from the disk and the "can- 
cel" bit is set to cancel the message. The 
header is rewritten on the disk. This is 
done for each DCB to be opened. 

Each line is started by issuing an EXCP 
on the channel program. After all lines 
have been started, the next DCB is gotten. 
The routine exits to Line Group Executor- 
Load 4 via an XCTL. 



OPEN LINE GROUP EXECUTOR LOAD 4 ROUTINE 



Module Name: IGG0194A 



delay from the time of entry to the rou- 
tine- If the line still has not completed 
I/O after 30 seconds, an error message is 
put to the console. 

IEC806I xxx # LINE UNAVAILABLE, ENDING 
STATUS NOT RECEIVED 

Where xxx is the line address. 

If I/O has not completed on any of the 
remaining lines, a message is also sent for 
each line. 

If the line had cpmpleted I/O during the 
30-second interval, the test continues on 
the remaining lines. 

If I/O has completed on all lines,, or 
after all messages have been written* an 
XCTL is taken to the next nonzero entry in 
the where-to-go table. If this routine is 
required again, a branch is taken to the 
beginning of the routine. 

For W^TA lines, the LCB fields are com- 
pleted as follows: 

1. The LCBTTIND field is updated with the 
offset of the associated TERM entry of 
the terminal table. If this entry 
does not exist, the program is ended 
with a dump. 

2. The LCBPOLPT field is updated with the 
address of the associated POLL macro 
instruction. 



OPEN DIRECT ACCESS MES S AGE QUEUE ROUTINE 
(CHART FtQ 

Module Name : IGG0193O 

Function : This routine is entered from the 
system Open routine. The size of the DEB 
is calculated by adding the basic size, 
appendage size, and the size of the 
extents. This routine issues a GETMAIN for 
the DEB and initializes it. The terminal 
table address is obtained from the DCB and 
stored in the communications vector table. 
The Implementation module is loaded into 
main storage. For each device type and 
each extent, the routine determines the 
number of bytes required for each record 
(other than the first) on a track for this 
device. The number of records that will 
fit on each track is determined. 



Function : This routine is entered by an 
XCTL from the Line Group Executor - Load 3 
routine. The time of day is obtained by 
the TIME macro instruction and saved in the 
routine. A test is made on each line to 
determine if I/O has completed. If I/O has 
not completed on a line, the time is 
obtained until there has been a 30-second 



If this is an OPEN for a checkpoint 
device, a test is made to ensure that the 
direct access data set has been opened. If 
it has not been opened, the program is 
ended abnormally. The module for 
checkpoint/restart (IGG019NH) is loaded by 
using the load subroutine in the Open 
module. The address of IGG019NH is stored 



Routines in Transient Area 95 



in the Implementation module (IGG019NG) and 
the terminal table address is stored in 
IGG019NH. The track length and overhead 
value are saved in IGG019NH. The number of 
tracks for the extent in the DEB is calcu- 
lated and stored in the DEB. The Open 
Checkpoint Records Data Set routine address 
is set in the where-to-go table. 

If this is not an OPEN for a checkpoint 
data set, the, Direct Access-Load 2 address 
is set in the WTG table. 

If this routine is needed for another 
DCB, a branch is taken to the start of the 
routine. Upon completion, control is 
passed to the next nonzero entry in the 
where-to-go table via an XCTL. 



OPEN DIRECT ACCESS-LOAD 2 (CHART F5) 

Module Name ; IGG0193fJ 

Function : Entered from the system OPEN, 
this routine initializes the Implementation 
module with the TCB address, priority, and 
master receive switch. The message pro- 
cessing DEB chain is zeroed. For each ter- 
minal table entry that is not a distribu- 
tion list, the routine stores the address 
of the DASD destination STCB in the link 
field and priority in the send scheduler of 
the QCB. If the QCB is for a process 
queue, the DASD destination STCB address is 
set in the chain pointer of the STCB. If 
there are no more entries in the terminal 
table, the relative record number available 
for the next segment is determined and 
sjtored in the Implementation module for 
placement in the QCB. The address of the 
first buffer is stored in the available 
buffer QCB, the IOB address in the DCB, and 
the DCB address in the IOB* 

A subroutine and STCB in this routine 
are moved into the OPEN work area. An STCB 
is set up for this subroutine. This STCB 
is posted to cause the subroutine to be 
activated. This subroutine obtains the 
address of IECKQQ01 (obtained from the base 
register set up as a result of the Qpost) 
and stores the address of the Implementa- 
tion module. 

If the DSCBs in the chain have not been 
freed, a FREEMAIN is issued to free main 
storage for these DSCBs* 

If operator control has been specified 
in the terminal table, an address constant 
in the Implementation module is changed 
from the address of Buffer Recall/Cleanup 
routine to the address of Operator 
Awareness routine. For all the entries in 
the terminal table, the polling list 
address is obtained and tested for Auto 
Poll (bit 7 of the fourth byte is one).. If 



this is an Auto Poll polling list, the 
polling characters and index bytes replace 
the offset value in the polling list. 

If the where-to-go table indicates that 
this routine is required again, the program 
is abnormally ended because there is only 
one DCB for the direct access device for 
message queues. Normal completion of the 
routine is an XCTL to the next nonzero 
entry in the where-to-go table of the sys- 
tem OPEN. 



OPEN CHECKPOINT RECORDS DATA SET ROUTINE 
(CHARTS F6 AND F7) 

Module Name : IGG0193V 

Function: This routine is entered by an 
XCTL from the QTAM Open Direct Access Mes- 
sage Queue routine when a DD card specify- 
ing the checkpoint records data set is 
entered. The name of this DD statement 
must be TPCHKPNT. 

The first function performed is that of 
calculating the size of the checkpoint 
records. A scan of the terminal table pro- 
vides access to all control information to 
be counted. Included in the size are: 
each terminal table entry, each polling 
list, 11 bytes for each destination QCB, 14 
bytes for each process QCB, and 11 bytes 
for each LCB. After the checkpoint record 
size has been computed, the total size and 
offsets to each type of data are saved in 
the Checkpoint routine for later use by 
that routine. 

A test is then made to determine if the 
disposition of the checkpoint records data 
set is old or new. If it is new, a four- 
byte control record is written in the first 
record of the data set. The data set is 
then further formatted by writing two com- 
plete dummy checkpoint records. Exit is 
then made via an XCTL. 

If the data set disposition is old, the 
four-byte control record is read from the 
disk to determine if a restart procedure 
should be initiated. If the first byte of 
the control record is zero, the checkpoint 
records data set was properly closed and no 
restart is necessary. The procedure 
described for formatting the data set is 
perf ormed, and exit is <made by an XCTL. 

If the first byte of the control record 
is nonzero, the checkpoint records data set 
was not properly closed. This indicates a 
system failure, and a restart procedure 
must be performed. A GETMAIN macro is 
issued to obtain a work area into which is 
read the current checkpoint record. The 
control record contains an indicator as to 
which checkpoint record is the most recent. 
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(c) For a Read Skip f a test is made in 
the status and sense bytes. If no 
errors exist, the line is started. 

• For an error, if it is Open time, link- 
age is made to the Error Post module to 
post complete with error. Otherwise, 
the line number, operation code* sta- 
tus, and sense bytes are placed in the 
message. A Write to Operator macro is 
issued to write the message. Upon 
return, the CCWs are restored and the 
line is started bypassing the check for 
OPEN, 

• To start the line the CSW is initial- 
ized for the retry. An EXCP is issued 
to retry the channel program. If it is 
Open time, an indicator is cleared for 
Line SIO. Error corrected is indicated 
to IOS in LCBFLAG1. An ERREXCP (SVC15) 
is issued to return to IOS. 



NOT OPERATIONAL START I/O ROUTINE 
(CHART AT) 



Module Name: IGE0504F 



Function : After initialization, the rou- 
tine issues a Write to Operator with Reply, 
which writes the message, IEC80 4A -- CON- 
TROL UNIT NOT OPERATIONAL REPLY CONT OR 
POST. 

If the reply is a Cont, 

• If this is OPEN time, an EXCP is issued 
to return to IOS to retry the channel 
program. 

• If this is not OPEN time, the SAD and 
Enable commands are needed. If a 2702, 
the SAD command is used and then stored 
in the channel program. A CCW is set 
up for an Enable except for the type 
III adapter. A Read Skip CCW is placed 
in the next CCW except for a type I 
adapter, which uses a Write Break CCW. 
The channel program is executed and 
upon return, exits to IOS. 

If the reply is a Post, 

• If this is OPEN time. Idle Open is 
indicated in the CCW in the LCB and 
normal completion is set in the IOB. 
Return is to IOS via an EXCP. 

• If it is not OPEN time, the routine 
sets the "cleanup" flag in LCBSTATE and 
a special flag for Line End and Free 
BRB to ignore the line. The IOB is set 
to indicate a permanent error to IOS. 
Return is to IOS via an EXCP. 



BUS-OUT AND OVERRUN FOR AUTO POLL ROUTINE 
(CHART AU) 



Module Name : IGE0604F 

Function : After initialization* the rou- 
tine tests for bus-out or overrun checks. 

For bus-out check, 

• If the failing CCW is a poll operation, 
the address of the polling list and the 
length of the entries are obtained. 
The new count and, data address are 
stored in the poll CCW. The retry 
counter is updated, and the control 
unit failure is recorded. The channel 
program is retried with the first CCW. 

• If the failing CCW is a Read Response 
to polling, the address of the polling 
list and the length of the entries are 
obtained. A search is made for the 
correct data address and count for the 
Poll CCW. The retry counter is updated 
and control unit failure is recorded. 
The channel program is retried with the 
first CCW. 

For an overrun check* the "should not 
occur" bit is set in the error halfword and 
a permanent error condition exists. 

After two retries, a permanent error 
condition exists. For a bus-out the con- 
trol unit failure is set in the error half- 
word. An indication is set for outboard 
recording. Linkage is made to the Error 
Post routine. 



OVERRUN ROUTINE (CHART AV) 

Module Name : IGE070F 

Function : This module is linked to as the 
result of an overrun indication found by 
the IGE060UE module. After initialization, 
the failing CCW is examined. 

For a Read CCW, 

• If text transfer, linkage is made to 
the Error Post routine with no message 
indicated. 

• If an initial channel program and a 
response to a TWX ID, the channel pro- 
gram is restarted after the Dial/Enable 
sequence. 

• Otherwise, the control unit failure is 
recorded and the channel program is 
retried at the first CCW. Upon return 
from the error EXCP, return is made to 
IOS. 
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For a NO-OP CCW, 

• If a Read Initial channel program, 
linkage is made to the Error Post rou- 
tine with no message indicated. 

• Otherwise f the "should not occur" bit 
is set in the error halfword and a per- 
manent error condition exists. 

If the retry has failed two times, a 
permanent error condition exists. 



ON-LINE TERMINAL TEST 

The Resident Terminal Test routine is 
the only routine of the on-line terminal 
test that remains in storage at all times. 
This module is located by a "V" type 
address constant in the LPSTART macro 
expansion. 

The Header Analysis routine is brought 
into the SVC transient area and executed by 
a SVC 77 from the Resident Terminal Test 
routine. 

The Header Analysis routine brings the 
needed terminal test routines into the SVC 
transient area. 

These routines perform the function of 
examining the test request message and per- 
forming the desired test. 

The test request message is sent from 
the terminal to initiate the test. The 
format of this message is: 



99999 format- integer test-integer type- 
integer [addr-char(s) ] [unit-char (s) ] 
[text-char (s) ] end- char 

where : 

99999 is the test activation code. 

format is zero or one. 

test specifies kind of test (1 through 
9K 

type specifies type of terminal test is 
for one (1 through 6). 

addr address of the terminal. 

• Format means exact address. 

• Format 1 means a symbolic 
address • 

unit specifies particular unit of the 
terminal. 



text is the text of the message. 

end specifies the end of the Test Re- 
quest Message. 



RESIDENT TERMINAL TEST ROUTINE (CHARTS QL 
AND QS) 

Module Name : IECKONLT 

Function : This routine recognizes terminal 
test activity, calls terminal test tran- 
sient routines, sends test messages, 
cleanup, stops and restarts line operation- 

The LPSTART macro generates a linkage to 
the module that checks the incoming mes- 
sages for the test activation code. If the 
code is not present, normal operation of 
LPS continues. 

If the test activation code is present, 
the buffers associated with the line opera- 
tion are posted to a test QCB. The subtask 
activated (Terminal Test Buffer Routing 
subtask) will set test identification flags 
in the buffer prefix containing the test 
request and post it to the LPS queue. Sub- 
sequent buffers will be posted to the 
available buffer queue. (terminal tests 
will utilize only the buffer containing the 
header segment.) 

Upon the next execution of the LPSTART 
macro, the buffer with the "test request" 
and "test identification" flags is pro- 
cessed by the routine. The "test identifi- 
cation" flags are recognized at entry to 
the module and the terminal test transient 
routines are called. These routines vali- 
date the test request and set up the appro- 
priate test. 

The buffer is then posted to another 
test queue control block. The subtask 
activated stops the line to be utilized by 
the terminal tests by placing a test sub- 
task control block in the STCB chain of the 
appropriate LCB. 

After the line operation has been 
stopped, further identification flags are 
set in the buffer prefix and again it is 
posted to the LPS queue. Upon the follow- 
ing execution of the LPSTART macro, these 
flags are recognized at entry into the 
module and the test message is sent to the 
terminal. 

Upon completion of the test message 
transmission, the Line End Appendage posts 
the buffer to the LPS queue. All areas and 
buffers utilized by the terminal tests will 
then be freed and QTAM line operation will 
be restarted on the subject line. 



( 
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Typical DSECT : 
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LCBNASEG 
LCBSORCE 
LCBDESTQ 



LCBCLPCI 



| -f 

LCBMSGPRJ 

+ 

LCBMPLRT| 
|. X 

LCBCLCCW 

LCBERRST | LCBBRKCT 

LCBTTIND | LCBDLPTR 
,. T _ + 

LCBFLAG1 | LCBFLAG2 | LCBSENSE 
IOBFLAG1 | IOBFLAG2 | IOBSENS0 IOBSENS1 
j. X X 

LCBECBPT 
IOBECBPT 

y 

IOBCOMAD 

IOBSTAT0 | IOBSTAT1 | IOBCNT 
+ X 

LCBSIOCCJ LCBSTART 

IOBSIOCC | IOBSTART 

| LCBDCBPT 
IOBWGHT | IOBDCBPT 

LCBRESTR 

LCBINCAM | LCBERRCT 
IOBINCAM J IOBERRCT 

LCBUCBX |LCBPTEMP| LCBTRST 
j. + „I X ^ -J 

LCBPOLCTJ LCBPOLPT 
j. X ™ ^ 

LCBERCCW 



h 



LCBCPA 
(CHANNEL PROGRAM AREA) 



H 



h 



H 



LERACTR 

. T i 

LERACDC J LERACIR 

LERACTO |LERTHTR |LERTHDC " 
„ T + + -j 

| | line | temporary 
LERTHIR JLERTHTO j number [counters 

X X ;. X 



Contents ; 

Off- 
set Field Bytes 

LCBSTATE 1 



+1 LCBENDOP 3 



+4 LCBCECB 



+5 LCBRCADD 3 



Description 

00 ■ inactive 

01 * free 

02 = partial message 

in queue 
04 * send 
08 * receive 
10 * initate 
20 s . converse 
40 » recall 
80 « cleanup 

(all numbers given in hex 
notation) 



For an incoming message, 
contains the contents of 
the return register (14) 
from the ROUTE macro. For 
an outgoing message, con* 
tains the address of the 
LCB for the originating 
line* 

BTAM opcode for current 
segment of current 
message. 

Disk address of the last 
correctly transmitted seg- 
ment in current message. 



(The receive scheduler STCB is bytes 8-15.) 

+8 LCBSCHAD 4 Address of the first wait- 
ing QTAM subtask for the 
LCB. 



+12 LCBCRPI 1 



+13 LCBSCHLK 3 



+16 LCBCHDR 3 



+20 LCBCSEG 3 



+22 LCBNASEG 3 



+24 LCBSORCE 3 



+28 LCBMSGPR 1 



Priority of the receive 
scheduler. 

Link field of the receive 
scheduler. 

Disk address of the cur* 
rent message header. 

Disk address of the cur- 
rent message segment. 

Pointer to the first seg- 
ment of the last message 
received on this line that 
is to be transmitted. 

Address of the chain of 
LCBs for source lines cur- 
rently sending to the same 
destination (low order bit 
= " in- source chain" flag)* 

Priority of the current 
incoming message. 
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+29 LCBDESTQ 
+32 LCBMPLRT 
+33 LCBCLPCI 
+36 LCBCLCCW 

+ 40 LCBERRST 
+42 LCBBRKCT 



+ 44 LCBTTIND 

+46 LCBDLPTR 

+48 LCBFLAG1 

+49 LCBFLAG2 

+50 LCBSENSE 

+52 LCBECBPT 
+56 LCBCSW 
+64 LCBSIOCC 
+65 LCBSTART 

+68 LCBDCBPT 
+72 LCBRESTR 



+76 LCBINCAM 2 



Address of the QCB for 
destination terminal. 

Scan pointer for next 
destination. 

Address of last CCW for 
which PCI was received. 

Address of the last BRB 
for which a buffer was 
assigned. 

Error half word. 

If receiving, contains the 
last status of the SEQUIN 
(terminal table). If not 
receiving, contains the 
time of the requested 
interrupt. 

Pointer to terminal table 
entry for current message. 

Pointer to next entry in 
distribution list. 

Status bits used by the 
I/O supervisor. 

Status bits used by the 
I/O supervisor. 

Sense information stored 
by the I/O supervisor. 

Not used by QTAM. 

Channel status word. 

Start I/O condition code. 

Pointer to the first CCW 
executed in the channel 
program. 

Pointer to the DCB. 

Used by ERP to send error 
messages. Contains termi- 
nal ID and TP Op code. 

byte 1: 

01 = Tells Poll routine 

the line is trying 
to send. 

02 = Dial line not 

available. 
04 = Polling or 

addressing error. 



+78 LCBERRCT 2 

+80 LCBUCBX 1 

+81 LCBPTEMP 1 

+82 LCBTRST 2 



+84 LCBPOLCT 1 



+85 LCBPOLPT 3 



+88 LCBERCCW 8 



+96 LCBCPA vari- 
able 

LERACTR 4 



08 = Halt I/O issued on 

WTTA line. 
10 = EOT received on 

WTTA line, 
40 = WRU received on 

WTTA line, 
byte 2 = Used by ERP. 



Number of retries. 

Index to the UCB in the 
DEB. 

Temporary storage for mes- 
sage priority. 

Address of EOB character 
relative to the address of 
the last correctly trans- 
mitted segment of current 
message. 

Count of messages received 
from terminal. 

Pointer to currently 
active entry in polling 
list. 

Channel Command Word for 
ERP. 

Channel program area. 



Cumulative counter for 
number of transmissions. 

LERACDC 2 Cumulative counter for 
number of data checks. 

LERACIR 2 Cumulative counter for 
number of intervention 
required. 

LERACTO 2 Cumulative counter for 
number of time-outs. 

LERTHTR 1 Threshold counter for num- 
ber of transmissions. 

LERTHDC 1 Threshold counter for num- 
ber of data checks. 

LERTHIR 1 Threshold counter for num- 
ber of intervention 
required. 

LERTHTO 1 Threshold counter for num- 
ber of time-outs. 
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DATA CONTROL BLOCK 
Typical DSECT : 

QTAM Line Group Interface 

r T T 

+ 16 J DCBBQFLG | DCBWTEOM j DCBWTEOT 

i x x 



r T 

JDCBBUFRQJ 

| DCBCLPS 

J. + T . 

| DCBINTVL | DCBACLOC | 
h + x_ 

j DCBDEVTP | 

j DCBIOBAD 

DCBCPRI j 
| DCBLCBAD 
h + 

+36 JDCBEIOBXJ 

| DCBEXLST 

L J. 



+20 

+ 24 
+ 28 

+ 32 j] 



DCBDSORG 



JDCBWTPAD j WTTA Device 
.x J inter face 



•j Common 
Interface 



+ 20 

+ 24 
+ 28 
+32 
+ 36 



+ 20 
+ 24 
+ 28 

+ 40 
+ 44 
+ 48 



QTAM Processing Program Message 
Queue Interface 

r T 1 

DCBBUFRQ | 

DCBTRMAD 
j. X T ^ 

DCBSOWA j DCBDSORG 
j. x .j 

DCBSEGAD 

4 



h 



DCBEODAD 



|. T 

DCBRECFMJ 

DCBEXLST 
L X 



r t 

(DCBBUFNOj 

h ± 

j DCBBUFL 

I- 



DCBBUFCB 



DCBDSORG 



DCBIOBAD 



I 



|. T T - 

|DCBOFLGS|DCBIFLG J 

l x x- 



DCBMACR 



QTAM Direct Access Message 
Queue Interface 



Foundation Before OPEN 
DCBDDNAM 



+ 40 
+ 44 

+ 48 



+ 52 



+ 52 
+ 56 

+ 60 



Foundation after OPEN 
._ T 



DCBTIOT 
"T 



| DCBMACRF | 
x < 

DCBIFLGS 

j DCBDEBAD j 

J. + . ^ 

JDCBOFLGS) | 

|DCBREAD/|DCBWRITE/ DCBGET/ DCBPUT | 
L X J 



QTAM Polling List Origin 
DC BK STAT 



+ 56 | 




QTAM Processing Program Message 
Queue Interface 

DCBRECRD 

DCBSYNAD 

DCBEOBLK 
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Contents s 

Off- 
set Field 



Bytes 



Description 



QTAM LINE GROUP 



+16 DCBBQFLG 1 



+17 DCBWTEOM 1 



+18 DCBWTEOT 1 



+19 DCBWTPAD 1 



+20 DCBBUFRQ 1 



+21 DCBCLPS 



+24 DCBINTVL 1 



+25 DCBACLOC 1 



Bit Setting 
xlxxxxxx 



xxlxxxxx 



xxxlxxxx 



xxxxlxxx 



Meaning 
WRtt=YES in 
the DCB macro 
instruction, 
IAM=YES in 
the DCB macro 
instruction. 
WRU macro 
instruction 
in the Send 
Header sub- 
group of the 
LPS. 

WRU macro 
instruction 
in the End 
Send subgroup 
of the LPS. 



Hexadecimal representation 
of the EOM character. 

Hexadecimal representation 
of the EOT character. 
When EOT=2EOM, this byte 
contains X'00 1 . 

Number of padding charac- 
ters when MON=NO is coded 
or omitted in the DCB 
macro instruction. 

The number of buffers to 
be requested for a Read or 
Write operation in advance 
of actual transmission. 

Address of the line proce- 
dure specification for the 
line group. 

The number of seconds of 
intentional delay between 
passes through a polling 
list for nonswitched 
lines. 

The offset, relative to 
zero, of the device access 
field for each terminal 
table entry. 



+26 DCBDSORG 2 Data set organization. 



DSORG= Byte 1 
CX xxOlxxxx 



Byte 2 
reserved 



+28 DCBDEVTP 1 



Device type pointer. A 
one-byte value calculated 
during OPEN and used in 
the BTAM Read/ Write module 



to calculate the appropri- 
ate Device I/O module. 

+29 DCBIOBAD 3 The first IOB address. 



+32 DCBCPRI 



Communication priority. 
Indicates the relative 
priority to be given to 
sending and receiving 
operations. 



CPRI= 
R 
E 
S 



Bit settings 
xxxxxlxx 
xxxxxxlx 
xxxxxxxl 



+33 DCBLCBAD 3 Line control block 

address. The first LCB 
address minus the length 
of an LCB. 



+36 DCBEIOBX 1 



Extended IOB index; the 
size of an LCB. 



+37 DCBEXLST 3 Address of the exit list. 
QTAM PROCESSING PROGRAM MESSAGE QUEUE 



+20 DCBBUFRQ 1 



+21 DCBTRMAD 3 



+24 DCBSOWA 



+26 DCBDSORG 2 



+28 DCBSEGAD 



+32 DCBEODAD 



+36 DCBRECFM 



Specifies the number of 
buffers to be filled with 
data from the direct 
access queue before they 
are requested by a GET 
macro instruction. Used 
only in process queue DCB. 

Address of a user-provided 
area in which the terminal 
name is stored. 

The size of the user- 
provided work area. Used 
only in process queue DCB. 

Data set organization. 
Byte 1 has MQ=xxxxxlxx. 
Byte 2 is reserved. 

Address of current 
segment. 

Address of a user provided 
routine to be entered if 
no messages are available 
(the process queue is 
empty) when a GET macro is 
issued. Used only in pro- 
cess queue DCB. The high- 
order byte of this field 
is used for flags by QTAM 
GET routines. 

Record 

Format Bit Settings 



G 
S 
R 



xxxxxlxx 
xxxxlxxx 
xxxxxxlx 
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+37 DCBEXLST 3 Address of the exit list, 

QTAM DIRECT ACCESS MESSAGE 
QUEUE 

+ 20 DCBBUFNO 1 Not used. 



+50 DCBMACR 



+21 DCBBUFCB 3 



+24 DCBBUFL 



Address of the terminal 
table r TERMTBL. 

Size of the data in the 
buffer equated to 
IECKBUFL. 



+26 DCBDSORG 2 Data set organization 

DSQRG= Byte 1 Byte 2 
CQ xxxxlxxx reserved 

+28 DCBIOBAD 4 Input/output block 
address. 

FOUNDATION BEFORE OPEN 



+40 DCBDDNAM 8 



Data set name as used in 
data definition statement. 
Used by OPEN to locate job 
file control block (JFCB) 
address. 



+48 DCBOFLGS 1 Flags used by OPEN. 



xxxxxxOl Reserved. 
xxxxxxOO Reserved. 

! Macro instruction 

reference. Specifies the 
major macros and various 
options associated with 
them. Used by OPEN to 
determine the access 
method. 

For line group: 

Byte 1 

INPUT xxlxxxxx 

Byte 2 

OUTPUT xxlxxxxx 

For message queue: 

Byte 1 

GET xlxxxxxx 

Byte 2 

PUT xlxxxxxx 

FOUNDATION AFTER OPEN 



| +40 DCBTIOT 2 



+49 DCBIFLG 



Bit settinq 
xxxlxxxx 


Meaninq 

OPEN has been 










successfully 


+ 42 


DCBMACRF 


2 




completed. 








xxxxxxxl 


This bit is 
set to 1 by a 


+ 44 


DCBIFLGS 


1 




I/O support 
function if 


+ 45 


DCBDEBAD 


3 




the DCB is to 










be processed 
by that 


+ 48 


DCBOFLGS 


1 




function. 








Used by IOS 


in communicat- 


+ 49 


DCBRead 


3 


ing error conditions and 








in determining error 
procedures. 


+ 49 


DCBWrite 


3 


Bit Settinq Meaninq 
OOxxxxxx Not in error 


+ 49 


DCBGet 


3 


procedure. 
Olxxxxxx Error correc- 


+ 49 


DCBPut 


3 



llxxxxxx 
xxlOxxxx 
xxOlxxxx 

xxxxOOxx 

xxxxOlxx 
xxxxllxx 

xxxxxxll 



tion in process 

Permanent error 
condition. 

Channel 9 prin- 
ter carriage. 

Channel 12 prin- 
ter carriage. 

Always use IOS 
error routine. 

Reserved- 

Never use 10 S 
error routine. 

Reserved. 



Points to the DD entry in 
the task I/O table for 
this DCB. It is the off- 
set of the DD entry rela- 
tive to the beginning of 
the task I/O table. 

Same as DCBMACR in founda- 
tion before OPEN. 

Same as DCBIFLG in founda- 
tion before OPEN. 

Address of the associated 
DEB. 

Same as DCBOFLGS in foun- 
dation before OPEN. 

Address of the READ 
module. 

Address of the WRITE 
module. 

Address of the Get module. 

Address of the Put module. 



QTAM Polling List Origin 



+52 DCBKSTAT 4 



Threshold values for error 

counts : 

+0 Threshold value for 

number of 

transmissions. 
+1 Threshold value for 

number of data 

checks. 
+2 Threshold value for 
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+56 DCBCPOLL 4 



number of interven- 
tion required, 
+3 Threshold value for 

number of time-outs. 

Byte 1: 

bits 0-3=Adapter type. 

bit 4=If on. World Trade 

Telegraph Adapter, 
bits 5-6=Reserved. 
bit 7=Internal use . 

(Checkpoint/Restart 

routine). 

Bytes 2-4: Address of the 
polling list for the first 
line in the line group. 

Each line in the line 
group requires 4 bytes for 
its polling list address. 



QTAM PROCESSING PROGRAM MESSAGE 
QUEUE 



+52 DCBRECRD 4 Not used by QTAM. 



+56 DCBSYNAD 4 



Address of the user pro- 
vided routine to be 
entered if a work unit is 
longer than the work area 
provided for input. Used 
only in process queue DCB. 



+60 DCBEOBLK 4 Not used in QTAM. 



DATA EXTENT BLOCK 

Typical Dsect ; 

APPENDAGE TABLE 

r 1 

-36 J DEBEOEA j 

I. < 

-32 j DEBSIOA j 

j. ^ 

-28 j DEBPCIA j 

|. < 

-24 | DEBCEA | 

(. ^ 

-20 | DEBXCEA | 

L J 

PREFIX 

r t * 1 

-16 JDEBWKARAJ DEBDSCBA j 

j. x 1 

-12 | | 

y ^ 

- 8 | DEBDCBMK j 

h „ ^ 4 

- 4 j DEBLNGTH | 

L J 



BASIC 

DEBTCBAD 
DEBDEBAD 
DEBIRBAD 
DEBSYSPG 
DEBUSRPG 
DEBECBAD 
DEBDCBAD 



r — t- 

| DEBNMSUB j 

,. + 

+ 4 JDEBAMLNGJ 

j. + 

+ 8 JDEBOFLGSJ 

I- + 

+12 JDEBOPATBJ 

f + 

+16 JDEBNMEXTJ 

»• + 

+20 JDEBPRIORJ 

j. + 

+24 |DEBPR0TG| 
|DEBDEBID| 

I- + 

+28 |DEBEXSCL| 

f J— 

+32 JDEBUCBAD (4-byte address per device)) 

L J 



Contents ; 



DEBAPPAD 



Off- 
set Field Bytes Description 

APPENDAGE TABLE 

-36 DEBEOEA 4 Address of the End of 

Extent Appendage branched 
to by IOS. 

-32 DEBSIOA 4 Address of the Start I/O 
Appendage branched to by 
IOS. 

-28 DEBPCIA 4 Address of Program Con- 
trolled Interrupt Appen- 
dage branched to by IOS. 

-24 DEBCEA 4 Address of the Channel End 
Appendage branched to by 
IOS. 



-20 


DEBXCEA 


4 


Address of the Abnormal 
End Appendage branched to 
by I0S« 




PREFIX 


-16 


DEBWKARA 


1 


I/O support work area. 


-15 


DEBDSCBA 


7 


DSCB address (BBCCHHR) 
used oy I/O support. 


-8 


DEBDCBMK 


4 


DCB modification mask use 
by I/O support. 


-4 


DEBLNGTH 


4 


Length of DEB in 
doublewords. 




BASIC 



DEBNMSUB 1 Number of subroutines 
loaded by Open module. 
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+1 DEBTCBAD 3 Address of the TCB for 
this DEB. 



Number of bytes in access 
method section. 

Address of the next DEB in 
the same task* 

Data set status flags, 

IRB address for error 
exit. 

Indicates file type. 

Address of first IOB in 
system purge chain. 

Number of extents (number 
of lines in the line 
group) . 

Address of first IOB in 
the user purge chain. 



+a 


DEBAMLNG 


1 


+ 5 


DEBDEBAD 


3 


+ 8 


DEBOFLGS 


1 


+ 9 


DEBIRBAD 


3 


+12 


DEBOPATB 


1 


+ 13 


DEBSYSPG 


3 



+16 DEBNMEXT 1 



+17 DEBUSRPG 3 



+20 DEBPRIOR 1 Dispatching priority field 
from TCB, used by IOS for 
channel queuing of IOBs„ 



+21 DEBECBAD 
+24 DEBPROTG 



+24-DEBDEBID 



+25 DEBDCBAD 
+28 DEBEXSCL 

+29 DEBAPPAD 



3 IOS internal ECB address. 

1/2 Protection tag assigned to 
this task. 

1/2 Hex 'OF* identifies this 
block as a DEB. 

3 Address of DCB associated 
with this DEB. 

1 Extent scale: four for 
direct access device and 
two for nondirect access 
device, 

3 Address of I/O appendage 
table ahead of DEB. 



+32 DEBUCBAD 4 (n) Pointer to UCB. n = num- 
ber of devices. 



Appendix B: System Control Blocks 281 



DEB DSECT for a Processing Program : 

PREFIX Process and Destination Queue 



-16 



-12 

- 8 



(Work area forj 
j I/O support | 



DSCB address (BBCCHHR) used 



h- 



H- 



by I/O support 



DCB modification mask used by I/O support 
|. T 

4 (Length of DEB | 

L JL 




+ 4 
+ 8 
+ 12 
+ 16 

+ 20 

+ 24 

+ 28 
+ 32 
+ 36 
+ 40 
+ 44 
+ 48 
+ 52 

+ 56 

+ 60 

+ 64 

+ 68 
+ 72 
+76 
+ 80 
+ 84 



BASIC for MS Process Queue 

r t 



h 



h 



h 



Address of TCB 



Address of next DEB in the same task 



Address of the next available record 
on DASD from queue 



Pointer to next DEB on the chain of 
processing program DEBs 



X'OF' iden- 
tify DEB 



Address of DCB 



Address of DEB +48 (BRB) 
First word of a dummy LCB 
Dummy last entry in queue (IECKSTOP) 



-T" 

I 
-+- 



QPRIRITY subtask 



h 



X»FE'= 
priority 
I- 

x'os 1 

TIC command 



-+- 

I 
I 



h 



X , 07- indi- 
cate dummy 
BRB 



Address of DEB +32 (LCB) 



Size of work 



area for GET | 

A- 



Reserved 



IQCB 



IV 

|A 



I BRB 



j Address of QCB for DASD Process Queue 



Hv 
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Device I/O Module. 
IGG019NQ IBM 2740 with Checking Device 

I/O Module. 
IGG019NR IBM 2260 Device I/O Module. 
IGG0203N Close Communi cations Line 

Group (CLOSE) . 
IGGQ203O Close Direct Access Message 

Queue (CLOSE). 
IGG0203P Close Process Queue (CLOSE). 
IGG019NS TWX Device I/O Module. 
IGG019NT WU 115A Device I/O Module. 
IGG019NU AT&T 83B3 Device I/O Module. 
IGG019NV IBM 1030 Device I/O Module. 
IGG019NW IBM 1060 Device I/O Module. 
IGG019NX IBM 1050 (Switched) Device I/O 

Module. 
IGG019NY IBM 1050 (Nonswitched) Device 

I/O Module. 
IGG019NZ Read/Write Routines. 
IGG019N1 IBM 1050 (nonswitched) for 

Auto Poll,. 
IGG019N2 IBM 1060 for Auto Poll. 
IGG019N3 IBM 1030 for Auto Poll. 
IGG019N8 IBM 2740 with Station Control 

and Checking for Auto Poll. 
IGG019N9 IBM 2740 with Station Control 

for Auto Poll. 



CLOSE Process queue 
(input) 

CLOSE Process queue 

(output) 
GET message 
GET record 
GET message segment 
OPEN communications 

line group 



OPEN direct access 
message queue 

OPEN Checkpoint/Restart 
OPEN process queue 

(input and output) 
PUT message 
PUT record 
PUT message segment 



IGG0203P 



IGG0203P 

IGG019NB 
IGG019NC 
IGG019NA 
IGG0193N 
IGG0193R 
IGG0193T 
IGG0194A 
IGG0193O 

IGG019NU 
IGG019NV 
IGG0193P 

IGG019NE 
IGG019NF 
IGG019ND 



(loadl) 
(load2) 
(load3) 

(load4) 



(load2) 



MESSAGE CONTROL MACRO INSTRUCTIONS 



Macro Instruction 



Module 



IGG019QA 


WTTA Device I/O Module. 








IGG019QB 


WTTA Line 


Appendage Module. 


Initialization 






QTAM DSECTS 


in SYS1.MACLIB 


ENDREADY 






DCBD 


DSECT for 


Data Control Blocks. 


Control Information 






Private Macro Instructions 


BUFFER 


-none- 










DLIST 


IECKDLQT 




CTLPROGD 


DSECT for 


QTAM Control Module 


OPTION 


-none- 






IECKQQ01. 




POLL 


-none- 




IECDSECT 


DSECT for 


System OPEN Work 


PROCESS 


-none- 






Area. 




TERM 


-none- 




IECTDEBX 


DSECT for 


Data Extent Block. 


TERMTBL 


-none- 




IECTDECB 


DSECT for 


Data Event Control 










Block. 




Line Procedure Specification 




IECTIOBX 


DSECT for 


Input/ Output Block. 








IECKQIOB 


DSECT for 


Input/Output Block. 


BREAKOFF 


IECKBRKF 




LCBD 


DSECT for 


Line Control Block. 


CANCELM 


IECKCNCL 




PREFIXD 


DSECT for 


Header £ Text 


COUNTER 


-none- 






Prefixes. 




DATESTMP 


IECKDATE, 


IECKEXPD 


QCBD 


DSECT for 


Queue Control Block. 


DIRECT 


IECKDRCT, 


IECKLKUP 


STCBD 


DSECT for 


Full Subtask Control 


ENDRCV 


IECKEOBK(WTTA only) 




Block. 




ENDSEND 


-none- 




TCBD 


DSECT for 


Task Control Block. 


EOA 


IECKEOAD 




TERMTBLD 


DSECT for 


Terminal Table. 


EOB 
EOBLC 


IECKEOBK 
IECKEOBC 










ERRMSG 


IECKERMG, 


IECKLKUP 


LIST OF MODULES BY MACRO INSTRUCTION 


INTERCPT 


IECKITCP 




CATEGORY 






LOGSEG 
LPSTART 


-none- 
-none- 




SUPPORT MACRO INSTRUCTIONS 


MODE 


IECKMODE* 


IECKSCAN 








-CONVERSE 


IECKCVRS 


Macro instruction 


Module 


-INITIATE 


IECKNATE 








-PRIORITY 


IECKPRTY, 


CLOSEMC Telecommuni- 


IECKCLOS f IECKLNCH 




IECKSCAN 


cations System 




MSGTYPE 


IECKTYPE, 


IECKSCAN 


CLOSE Communications 


IGG0203N 


OPCTL 


IECKOCTL* 


IECKSCAN, 


Line Group 








IECKLNCH* 


IECKDRCT 


CLOSE Direct 


Access 


IGG0203O 


PAUSE 


IECKPAUS 




Message queue 




POLLIMIT 


IECKPLMT 
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POSTRCV IECKOPAW 

POSTSEND IECKOPAW 

RCVHDR -none- 
RCVSEG ' -none- 

REROUTE IECKRRTE, 

ROUTE - IECKROUT, 

IECKLKUP 

SENDHDR -none- 

SENDSEG -none- 

SEQIN IECKSEQN, 

SEQOUT IECKSEQT, 

SKIP on count IECKSKPC 
SKIP to character set IECKSKPS, 

SOURCE IECKSRCE, 

TIMESTMP IECKTIME, 

TRANS IECKTRNS 

MRU -none- 



IECKLKUP 
IECKSCAN 



IECKSCAN 
IECKEXPD 

IECKSCAN 
IECKSCAN 
IECKEXPD 



WTTA Translation Tables 



RCVEITA2 -none- 

RCVEZSC3 -none- 

SENDITA2 -none- 

SENDZSC3 -none- 



MESSAGE PROCESSING MACRO INSTRUCTIONS 



Macro Instruction 

CKREQ 

CHNGP 

CHNGT 

COPYT 

COPYP 

COPYQ 

RELEASEM 

RETRIEVE 

STARTLN 

STOPLN 



Module 

IECKCKRQ 

IECKCHPL, 

IECKCHGT 

IECKCPYT 

IECKCPPL,, 

IECKCPYQ 

IECKRELM 

IECKRETD, 

IECKLNCH, 

IECKLNCH, 



IECKDCBL 



IECKDCBL 



IECKRETS 
IECKDCBL 
IECKDCBL 



